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2 ERR a EASE ER TETERAT TIT 


PPTAMALES*® FNQ PROTOTYPE ISS MONEL 
NOPMALLY MONT TS INTCGFR 


PPOSFINES TO ASSURE UNIQUENDTSS OF NAMES TO 


DE FING 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
OF FINE 
DEFING 
DEFINE 
DEFINE 
DE FING 
NE FTNE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
OEFINE 
DEFINE 
NEFING 
DEFINE 
DEFINE 
OFF INE 
DE FINE 
DEFINE 
NEFINE 
QE FING 
ME FINE 
DEFINE 
NEFINE 
OF FINE 
NE FING 
OE FINE 
DEFIN® 
DEFING 
DEFINE 
OF FINE 
DE FINF 
Of FINE 
DEFINE 
DEFINE 
DEFINE 
OF FINE 
NE FINE 
OF FINT 
DEFINE 
NEFING 
DEF THE 
OF FING. 
OF FINE 
Of FING 


CHECK, OTIZLINE TO MEAN CH,TP 
CHEQK.OTIE TO MEAN CH,TP 
CHECK. "PAVELPIPL TO MEAN CH.TP 
AIPMEN,NAME TO MEAN GN. NM 
AIRMON SZCPUITS TO MFA! AR,2T 
AIRS INTTTALSYGe PCT TO MEAN AIS YO 
ATP.OFF. INUIV TO MEAN ADEN 
ASSIGN.CHECK TO MEAN ASeCK 
ASSIGN.OIT TO MEAN AS.NJ 
ASSIGN O'T TO MEAN AS.9U 
ASSIGN StH TO MFAN AS,SC 
ASSIGNeS=P TO MEAN AS.5P 
3ASE.LOT TO MEAN 85,.LC 
BASE. POITIRITYeSET TO MTAN 35.°S 
3ASS.SUPXFOPTLSTAFF TO MEAN 356SS 
MASE. TY°2= TO MEAN 9S, TP 
FLOW. I"! TO MEAN FLeIN 
FLOW. OUT TO MEAN FL.OU 
FLOW.SF® TO MEAN FL.SP 
INIT.PF2IONS TO MEAN IPD 
INIT.PF25090 TO MEAN IN.°0 
INIT. Y7A20 TO MEAN IN.YO 
LEVEL.FNTER TO MEAN LV. EN 
LEVEL. TA'IGHT TO MEAN LVeTT 
MAKZ.A2L<% TO MEAN MK,AR 
MANPNWFO,PF TO MEAN MP, PF 
MISSION.SKILLS TO “EAN MSeSK 
MISSTON. SUPPORT. SKILLS TO MEAN MS.SS 
OFFLINITTALe YGe PCT TO “MFAN OF e YP 
OFFICT®. NAME TO MEAN OF. NM 
OFFICE, 29ESRUITS TO MEAN OFeRC 
OFFIC™®, SKILL1 TO MEAN OF,S1 
OJTeFLOW,IN TO MEAN OJ. FI 
NITeFLOW.OUT TO MEAN OJ.°9 
NITCOUT TO MTAN OJ29U 
OJT.°CT TO MFAN OU,PD 
NYUTENTS TO MEAN OS.0S 
PERINNN “OO MFAN PN, PO 
OTP=Z,FYTT TO MEAN PP,EX 
PLAN. SAVINGS TO MEAN PL. SV 
PETENTTOYV.PATE TO MEAN RTERT 
RETENTTOIZVAZTANCE TO “EAN RTOVR 
PNTATTON.CYCLE TO MEAN ®90,CY 
2OTATTION.MEMORY TO MEAN ROVYMM 
SOTATICN.POOL TO MEAN 20,.PL 
SCHOOLeCAPACITY TO MEAN SCeCA 
SCHOOL CYARPT TO MEAN ST.CH 
SCHOOL. VIEUE.STZ7® TO MAN SC.QS 
SCHOOL.-WIEVE TO MEAN STH.Q 

A.2 


OR & CHAPS 


a tennant 


PEFINE SKILL ATVIUSTMEMNT TO MEAN SKeAD 
DCFING SKTLLeHAYE TO MEAN SK,TIM 

OXFINE SKILL TA IGHT TO MEAN SK.TT 
DEFTNE TECH, TTATINING TO MEAN TH.TT 
NEFINT TOTAL.LGPANUATION TO MFAN TO.GR 
DEFINE TOTAL CMFN,SSTUNENTS TO MEAN TONS 
OFFINE TOTAL ST HOOL. QUEUE TO YFAN TO.SA 
DEFINE TOTAL VMATT.QUECUE TO MEAN TOW 
OFFINE TRAINING.CONSTANT TO MEAN TRACT 
DEFTNF TPATNING. PPO JECTION TO MEAN TRePR 
DEFINE TRAINING, SCHENULER TO MEAN TReSC 
DEFINES TRAINING.TIMT TO MEAN TRLTM 
DEFINE TRAVEL YILUMS TO MEAN TREVL 
DEFINE USAF. MANPOWER, NESTREN TO MEAN USe'4) 
DEFINE USAF. “TN.MANPOWE? TO M7AN USeMM 
OfFFINE USAF. MISSION. AUTH TO MIAN USeMA 
DF FINE USAF. PCHANGE TO MEAN US~2PC 
DEFINE YSELE. PROJECTION TO MEAN US.PR 
DEFINE USAF. SCHIOLeAUTH TO MEAN US.SA 
NEFINT USAF. UPGRADES TO MEAN US.UP 
DEFINE YEAR. PLAN TO MEAN YRePL 


- 6@ 


**GLOBAL PPOPFOTIES OF AIPFORCE FACILIT tSeccceveccvecrerecscces 
oe 
PERMANENT INTTTTES 

EVEPY RASE HAZ 


A NAME, "* ALPHA NAME FOP REPORTS 

A CONT.LOCATION(* 7/15), * CONUS, FUR, OR PAC 

A SEP.POINT(*/12) ""BAS= OF JESARKATION FO® SEPARATEES 
AN OVE2STAS(*#/15) , "FLAG INDICATING OVERSEAS LOCATION. 

A BAST. TYPT(*FS10) » *"OPSyTTs BMT, IPT. 

A STATE.LOTATION, 

A MAJCOM 


AND SELONGS TO A SASF.PRIORITY.SET 
TFMPORAQY SNTIT TES sc cevcsece 
EVERY AIRFOFC™ 
HAS SOM® OFFICERS AtiN SOME AI&MEN 
AND OWNS A BASE.PRIORITY, SET 
DEFINE ALLeTHTeAIRMEN AND ALL. THEeOFFICERS AS 1°0IM INTEGER ARRAYS 
OFFINE BASE. POIIRITYeSET AS A SET RANKED 3Y LOW BASE, TYOF 
ee 
PERMANENT ENTITIES 
EVERY SCHOOL YAS 
A SKILL» TA'IGHT(*/12), "WHAT SKILL THIS SCHOOL PROVIDES 
A LEVEL. TA'IGHT (*/12), "AT WHAT LEVEL 


A SASS.LIA(*/12), "*HHAT BASE THIS SCHOOL PISIDES AT 
A DURATION, "*MURATION OF TRAINING CIURSE 
A SCHOOL CAPACITY (*/5) **MAX OPNSSTBLE ENROLLMENT 


OZFINE DUPATTIIN AS A REAL VAPTARALE 


PeTH™ FACTLITT™ FS SUPPOST VASTIUS MISSIONS (766.4 ATRFAKRET SNUANRONS) 
PPE ACH TYPT NE ATSSTON PEVUTOR ZS MANPOWER HAVING VARTIUS SKILLS 
ee AT VASTOUS LEVELS. THt AMOUNT OF MAN®POWF2® JESENIS ON THE 
ee AMOMINT OF FJUTPMENT, HOW MHICH TIME IT IS IN USE, STS. 
ee 
PERMANENT ONTITTTES 
EVERY MISSION HAS 
SOME STN FIIPMENT, 
SOME STO.FLYINGeHPRS, 
A STOeMUNTTIONS, 
A FLTePLAN.COFFF, 
AN MHeP™ >, =H, 
A MUNITIMNIGLF, 
SOME SKILL.COEFF 
NTFINGT ATReMFEZEQUIV AS A 1=-NIM INTEGER ARRAY "*POTNTS TON AI? SK 
DZFIND MONTHLY 4ANSHPS AS AN INTEGER VARIABLE 
DEFIN= MANPOWTR. PF AS A QZ AL VARTIASLE 
QOLFITNE FLTSPLANS COEFF » STO.MUNTTIONS AS FEAL VARTARLE 
NIFINE OT. CAV FACTOR,UNTe CAP. FACTOR, TT eCAPLFACTOR, 
BMT oe CA FACTOROTSeCAPSFACTOR AS REAL VARIASL™S 
DEFINE IP, SYAR,INeSHARE AS 1-9IM REAL ARRAYS 
OEFINE INT. POT.PCT TO MEAN INITIAL eCROTATION. PCT 
ee 
EVERY SKILL A'ID LEN. TEXT HAS 
A SKILL NAME *TALPHA NAME FOR REPORTS 
ce 
EVEPY LEVEL HAS 
AN OFFTCTR.NAME, ""ALOHA NAME FOR REPORTS 
AN AIRMEN, YAME “ALPHA NAME FOR REPORTS 


“*MISSIONS AR ASSIGNED TO SASES AS “OUTPUTS OF THAT TASZe 
S9THE ASSIGNM=NTS MAY VARY FROM YEAR TO YEAR. 


EVERY YEA® ANY BASE OWNS 


iT SOME OUTPUTS, **LIST OF ASSIGNED OUTPUTS 
AND HAS 


A YEsMAMNPONEP SNESIRED(*/ 3), **SUM OVER ALL OUTPUTS (Sol) 
-- A YEe MT Ne MANPOWER (*/3) *°SUM OVER ALL OUTPUTS (SsL) 


TEMOORARY ENTITTES 
ee 


EVERY OUTPUT YAS 


A TYPE, e*TYPE OF MISSION 
A AUANTITY, fPNUMBER OF THESE MISSTONS ASSIGNZ TI RASE 
Be A WTILTZATTON, SPYSTIALLY, # OF FLYING HOQUSS/ATRCRATET/MO 


— 


AND BCLONGS TO 
AN OUTPUTS 


TE RES TEI ENTIRE mee TaN RUF, Se 


PPAGGOFESGATE={PLA'INING SUIMM*DNDNML ec cece nec ccc ere ses eeres seneseees 
6 (1) ATVELOSS TOTAL USAF ANA INDIVIDUAL BASF ANTHO?P TATIONS 

at FROM CONCETTSIONAL AUTHOPTZATIONS AND GIVEN MANS VTP ROMTS, 
Pe (PFYCANSTOULTS YEARLY PLANS “O? TRATNING ANN PLOCSUTTMENT TI MAKE 
ee —§SUPOLY OF MANPOWER MEET A'NITHORTZATION, COMPZNSATING FIR 

ee SE PAPATTOANS THAT OCCUR NUPING THE YEA, 


PERMANENT ENTITIES 
ee 
EVERY YEAR HAS 
SOME YEAP. GROUPS,  "fTISTRIBUTION OF HEN 3Y (SylyV¥Re GROUPS)? 
A YES, ATPMON, "#SONGPESSIONS AUTHORIZATION FO? ATRMEN 
A YES,OFFICE2S «8 ss “ FOR OFFISERS 
DIFTNE ATP, AUTH, TRAJECTORY yNF Fe AUTH TRAJECTORY, 
AIR INT TS AUTHSPCT OFT eo INITSAUTHAOGT AS REAL VAPTABLES 
ee 
EVEPY YEA® AND BASE HAS 
A YE, AUTHNIZATION(*/3) 


ee 

NORMALLY MONE TS REAL 
oe 

EVERY YEAR, SKILL, AND LEVEL HAS 

. AN EXPECTTIZSEPARATIONS, '*TOTAL SEPS (S,L) 
AN ACTUAL, TEPAPATTONS, /#T2UE SEPS (SeL) 

USAF. MTSSION. AUTH, 
CONUS. USAF. Me AUTH, 
USAF. SCHIOL AUTH, 
USAF. MTN. MANPQUER, 
USAF, PPOJECTION, 
NESTRENLSPLITs 
SAF, MANPOWE®.DESIR=D, 
USAT. IPG ?ANES, 
USAF. OCU ANGE 


rPPYrrrrrrp 


EVERY SKILL AND LEVEL HAS 
A RETENTION’. VARIANCE 
DEFINE SETFMTTONe VARIANCE AS A REAL ARRAY 
On) 
EVE®Y SKILL H4S A TRATNINGe CONSTANT 
oe 
ee 


D=FINT RETENTTONSRATE AS A 2=NIM REAL ARRAY 

DIFIND YG,SPLIT ‘*DISTPTSUTION OF GROSS=LVL SHANGTS 2Y YS 
AS A 3="7™ REAL ARRAY 

DEFINZ YEARN AS AN INTEGEP VARTARLE 

DEFINE MAX,CA3 AS AN INTESE7 VAPTAARLE 

NORMALLY DIM™ ISION IS 3, ONE IS INTEG2 

THE SYSTEM HAS 
A YG.A2PAV(#/5), «= PIISEN TO RESERVE INITIAL YR GRO 4EM 
A THISY®(*/5), **USEN TN CALCULATING SPS FIN4 Y3 MEM 
A NEXTYR(*/5) ooo “ “ . 

DEFING YG. A°°1Y,THISYPyNEXTY® AS INTEGE2 VARTARLES 

NORMALLY DIMCISION IS 0 
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ee 
ee 

ee 

oe 

fPTIATNING SCHT WLE® 

f*GIVEN A ST ONEICES OF YEAR PLANS, AND THE MONTHLY OISTATIITION 
"OF SEPARATIONS, WE 

**¢i) O=VECOP & SCHEQULE OF SLOTS TO. BE SECLED (Hol eS”) 


*s 3Y MONTH, SKILL, AND LEVEL FOR THE ENTI®C ATPFNRCE, 

Pe (2)CALCULATF THE NUMRER OF ATRMEN AND OFFICER RECRUITS THAT 
ws MUST FNT=R THE ATRFOPZT™ EACH MONTH T9 FILL TH= SLOTS 
ee CREATED AT THE LOWEST LEVELS 


DEFINE EXTT-© AS A 1-NIM SEAL ARRAY 
DEFINE USAFHILES AS A %TIM REAL ARRAY 
DEFINE ATSMTN.RECPUTTS ANN OFFICE®,RECPUTTS AS 1-NI™ INTEGER 


AQAPAYS 
DEFT IITTALeROTATION, PST AS A 2=NIM REAL APRAY 
Ee L ANA LEVEL HAS 
o PLT, 


AINING. TIM? 
DEFING OJTe OT, TRAININGe TIME AS REAL VARTAMLES 
ee 
ee 


**OITPUT REQUTOZMENTS FOR AGGOFEGATE PLANNING SU3IMONEL seccvccecccevvene 


ee 

ce 

ee 

ce 

oe 

ee 

“© ASSTGNMENT=°L INNING SUBMONEL cc ccv cc crccccen ee sesene- seen erere 
ve 

*°(1) TRANSLATTS USAF YE AUTHOPIZATIONS INTO BASE AUTHISTZATTONS 
=e BY MOTH. 

#0(2) TOANSLAT® 3S YEAR PLAN INTO MONTHLY TA®GETS FO? TOTAL USAFS 
ike PUPGOANES, SPLIT INTO OJT AND TECH TRAINING ROMTS 

ee >SEPARATTIONS EXPECTEN 

#9(3) DEVELOPS PROJECTIONS OF PASE MANPOWER LEVSLS 2Y 4ONFH 
*°(4) NEVELOPS PRIJECTIONS OF SCHOOL OUTPUTS RY MONTH 

#¢(5) PRODUCES “HE TRAVEL ORDFR8S THAT WILL? 


= >TPANSES > SCHOOL OUTPUTS TO BASES (OP OTHE? SSHIAILS) 
sl >SATISSY OVERSEAS ROTA~ION ROAMTS 
eg >TRANSTS? BASE PERSONN“L TO SCHOOL FOR UPGRD TEATNING 


PERMANENT ENTTTTES 
oe 


NORMALLY MOTE IS INTEGER 
ce 
EVEPY PERTON AND BASF HAS 
AN AUTH.SHPPLY(*/3), "*RASE*S AUTHORIZATION 
A 4IN.SUFPLY(*/3) © *eMINIMUM NEEDED MANPOWT2 TO FUNSTION 


A.6 


oe 


EVEPY PEQTO) AND SCHOOL 4AS 
A TECH. TPATNINGePOOL(*/5), **PROJECT=-O SCHIOL OUTFLOW THIS PERIOD 
AN ENTEP STHOOLe TARL=E (*7H) roROJEGCTED SCHOOL TNFLOA TALS PERIOD 
ee 


EVEPY PFRTNN AND SASF HAS 


A PRONIZC -TIN(*/3), **PROJECTEN SUPPLY THIS MONTH 
A POTATTIO!, POOL(*/?) fe # STILL TO SE RSOTATED OUT SY THIS PERTOD 
AND OWNS 


SOME PLANNN. ASSIGNMENTS ©*PLANNED TRAVEL OUT OF IASF 
"'THIS PERIOD 
ee 
EVERY SCHOOL IWNS 
A IISPOSTTTON MPSET OF TRAVEL ORDERS TO 3F USTN BV GRANS 
ee 
NIPMALLY NIMTYSION TS 3 
THE SYSTIM HAS A DEMAND (#75) 
NORMALLY OTM= ISION IS 0 


TEMPOPARY ENTITIES 


EVE®Y ASLK '* TS A TRAVEL ORF NE® FOR A BLOCK OF MEN AND 
HAS 
A SKL (175) IN WORD 1, 
A CLASS (2/6) IN WORD 1, 
A LVL (5/12) IN WO°D ty 
A PURPOSS (6/12) IN WORD 1s 
A DESTINATTON (476) IN WORD 1y 
A STZE (4/4) IN WORD ty 
A NEPASTIPT DATE IN WO?2D 2, 
AND MAY °° LONG TO 
A VISSOSITION, 
SOME TLANNED. ASSIGNMENTS 
OZFINE DEPAPTIRESDATE AS A SEAL VARIABLE 
oe 


FVENT NOTICSS INCLUDE ASSIGNMTNT 
os 


DEFINE SGHOOL.GHART **PELATFS SKILLS AND LEVELS TO SCHOOLS 
AS A 2-0™ INTEGER ARRAY 
NEFTNT NeAT™INS SKILLS, OTS, AMT AS INTEGER VARIAALES 
os 
DEFINT PERINN, ‘LAST MERION OF YZARD 
NeTEOH. SSHOOLS)"9N, SCHOOL LESS OTS AND AMT 
OFFICE*.SKILL1,¢"FT°ST OFFICEP SKILL # 
He MONT 45 #9@ OF “MONTHS FROM TIME. TO 492T70N 
AS TNTTGEP VARIAQLES 
DEFINT OTS.TI4Fy SMT TIME **RASIC TRAINING TIMES 
AS R=AL VARTAWLES } 
NEFINE OJT.NFLAY *OJT ELIGIBILITY LAGS 
AS A 1=NIM REAL AQ?A¥ 
ce 
DEFING OUT.ONT, SEP.LOUT, TT.QUT AS INTEGER FUNCTIONS 
. ; 


A.7 


ae 
CPQUTPIIT RENUTOTMENTS FOR ASSTGNMENT PLANING SYAMOTTL coccccecccccccees 
ee 
ee 
PERMANENT ENTTTTES 
ee 
DIFTNT ¢ TO MTAN IN WORD 
EYFOY BASE, SKTLL, LEVEL HAS 


AN ASSTG", JUT(1/5) & Ly S°SCHEDULED ASSIGNMENT MEPARTURES 
AN ASSIG", VIT(2/5) & ty CCSCHSOue sD UESRANES VY asT 

AN ASSIGN, SEP (3/5) & Ly e*SCHaDUELe SEPEPATION NECARTURES 
AN ASSIGN. SCH(G/5) ¢ 1 SESCHEOULED OEP ARTURES FOR SCHOOL 


EVFRY SCHOOL YAS A LEVEL eENTER (*/12) 


EVENT NOTISES TNCLUNE SAVE.ASSIGN 


ee 
BEFOPE FILING Tl PLANNEDSASSTGNMENTS, CALL ASSIGN. CHICK 
oe 
eer 
oe 
ee 
oe 


**PZOPSONNEL-FLOY SUSMODEL se ccc cover ecsererece resets ererseseereeenee 
oe 


Fe THPLEMENTS TH= PLAN DEVELO®8rD AROVE. 

"°(1) CAUSES STPAPATIONS TO ACCUR 

""(2) CAUSES 2TCRUITS TO RE TNNUCTED 

*°(3) CAUSES TRAVEL TO OCCUR 

"@(hy CAUSES G2ADUATIONS FRO! SCHOOLS TO OCCUR 

eeTHE FFFECT OF THESE EVENTS JTS TO MOVE 3L9OCKS OF MEN TNTD ANN 
**OUT OF BASE S'JPPLIES (O02 SCHOOL ENROLLMENTS) VIA TRAVEL PIPELINES 


ee 
en 


PERMANENT ENTTTTES 
oe 


EVERY RASE HAZ 
4 SU?PLY (#3), f]CURRENT BASE POPHLATION 32Y (Sy) 
AN OJT.FLTSIBLES(*/3), **CURRENT # AVATLASLE FO? OJT UPG2N 
AN OJT.INFLISTILES(*/3), "*RECENT UPSRANES(*/3), NOT SEANY FOR OUT 
A PENIING. OUT, “*TATAL PLANNED OJT,, TIM™.V TO HORT 7ON 
A ROTATION. MEMORY (4/3) "#3-D ARRAY OF AOATATION YTSTORY FOR OVERSE 
A ROTATION.CYCLE(*/3) «= "*NURATION OF ROTATION SYSLE IN MONTHS 


Evzey SCHOOL 4AS 
AN ENROLLMF IT(*/5) , "CURRENT NUMRER OF STUDENTS IN PROGRESS 
A SCHOOL. WU "UE. SIZE (*/5) 
AND OWNS 
A SCHOOL. WUE "*LIST OF STUDENTS WAITING TO =NROLL 


FVTSY TEAVOLeO Tor HAS 
A CBPACTTY(¥/G), "eMax £ OF PERSONS SIMULTANEOUSLY IN 
NR VOLUMF (*/4) , PeCURRENT sa * ag 
A MINH. TRAV TIME», "8MIN TIME A TRAVELER SPENDS IN PIPE 
AW EXIT sSASEC* 7/12) 59° WHERE THE PIPE =MPTIES TTS LOW 
A WATT.CONTIESSTZE (*74) 45 
AND OWNS 
A WAITING. WEUF MEPTOSINS WAITING TO TRAVEL 
DEFIN= MINS TOVVELS TIME AS A PEAL VARIABLE 


PIPE 


ee 
NEFINT PTPE.CUART "RELATES PAIRS OF B4S°5S TO THE PTPL JETWEEN 
AS A 2=NT™ INTIGER APALY **THEM 
ee 
TEMPNWAZY ENTITTES 
EYCRY ABLK MAY SELONG TO 
A SCHONL.N'IEUE, 
A WAITING. WEUE 
AND HAS 
A (Ps DISPOSITION(1/3) 4 Se VISPOSITION(2/3) y 
MeOTSPOSTTION(3/3)) IM WOON 3, 
A (P.PLANI~9. ASSIGNMENTS (1/3) y 
SePLANI7N. ASSIGNMENTS (2/3) 5 
Me PLANN@9. ASSIGNMENTS (3/3)) IN WORD 3, 
A (PeWATTING. QUEUF (1/3), 
SeWATTING eo MIEVE (2/3), 
Me WAITING. QUEVE (3/3)) IN WORD 3, 
A (P.SCH.M(1/3), 
S$eSfH.90273) y 
M.SCH.9(3/2)) IN WORD 3 
ee 
EVENT NOTICES TNCLUNE 
INDUCTION AND MOVEMENTS 
ee 
EVERY GRANUATION HAS 
B GeBLK,y 
A Ge SCH 
an 
EVERY PIPL.FXTT HAS 
A P,ALK, 
A PIPE 
ee 
NEFTNE PLAN. YTIR AS AN INTEGHS FUNCTION WITH 1 ARGUMENT 
DEFINE GET.GTAIUATZTS AS AN INTEGER FUNCTION WITH & ARGUMENTS 
DEFINE GET.29TATIONS AS AN INTEGER FUNCTION WITH & APSUMENTS 
DEFTN® PEQTON.S AS AN INTIGE” FUNCTICN WITH 41 GRGUMENT 
MESTNE SKTLL «NAME, OFFICTS,NAME, ATRMENSNAMF AS ALOHA VARTARLES 
DEFINE NAM™, STATE SLIOCATION,MAJCOM AS ALOHA VARTIAQLES 
DEFINE YN. FRAC, 4ITNs MANPOWE?, FOAC OFFS INITIALS YGsPCT, 
AIRsINITTALS YGePCT AS 2=9IM SEAL ARPAYS 


fPQUTOUT PINUTR-MENTS FOR THE PLRSONNEL FLOM SU2MODEL secccccevccscccecs 
ce 

ee 

BEFOPT PFMOVTNS F20M PLANNEN,ASSIGNMENTS, CALL FLOWL 

AFTER SCHENULTNS A GRANUATION, CALL FLOW2 

REFOPF IFSTPOYTIG AN BALK, TALL FLOW 

BEFORT FILING T'l SGHOOL.QU7UE, CALL FLOWS 

AFTER SCHEDILTNS A PIPE.EXTT, CALL FLOWS 

BEFOPF FILING Tt WAITING. OUZU", CALL FLOWS 

ee 

FVENT NOTICES TNCLUNE PERSONN™=L «SAVING, STORAGE. MANAS= 2, MASSIVE o QIF 
ee 

PERMANENT ENTITTES 

ce 


EVERY BASE,SKTLL,LEVEL AAS 


A FLOW.S7P(5/5) & 4, **SEPERATION NEPAQTURES 
AN OJT.FLOVOUT(1/5) § 25 SPLEVEL Y2GRANES BY JT 
A TO.SCH.FLOW(2/5) & 2, PeNEPARTURES TO SCHOOL 
A SLOW.O'NT(3/5) & 2, #°OTHER ASSIGNMINT D> PARTURES 
A FLOW.ING4/5) & 2, @eOTHER ASSIGNMENT AZPIVALS 
AN OJTeFLOWSIN(S/5) & 2 **UPGRADZS INTO SKILL LEVEL SUPPLY 2Y OJ 

ee 

EVEPY SCHOOL 4AS 

A TOTAL. 4.9USUE, **SIZ© OF WAITING QUEUE FO2 SCHOOL 
A PEAK. STH. QUEUE, "LARGEST VALUZ OF WAITING QUEUES ST7E 
A TOTALeNENeSTUNENTS, =" *NUMRER ENTERING THE SCHOOL 
A TOTAL. GEANUATION, **NUMBER LEAVING THE SCH INL 
A PEAK, EMPILLMENT f*LARGEST SCHODL ENROLLMENT 

ee 

EVERY TRAVELPTPS HAS 

A TRAVEL.VILUMS, **NUMBER IN TRANSIT 
A PEAK. VOL'IME, "*LARGEST NUMQER IN TRANSTT 
A TOTAL.WATT.QUEUE, PONUMBER AWAITING OTPAPTURE FOR TRAVEL 
A PFAK,WAT~.QUSUE “*LARGEST NUM3ER AWATTING NEPAQTURE 

oe 

ee 


"PESTMULTANTONIS EVENTS IN THIS ORNER 
PRIORITY OPNE2 IS PERSONNEL-SAVINGs, "FOR PR=VIOUS MONTH 
STORAGE, MANAGER, 


PIPreOXIT, : 
GRANUATION, 
ASSIGNMENT, 
SAVE.ASSIGN, 
MOVEMENTS 
ee 
ee 
S*GENFRAL UTILTTY ROUTINE, GLOVAL VARIA3LES, ANN CONSTANTS 
ee 


D=IFTN= CETL«F, CALENNAP, 4ON"H, LENe Fg CELL.F AS INTEGE? FUNSTIONS 
| NEFIMNE TIME.F AS A REAL FUNCTION 
i DEFTNE YRSeTA.SIMULATE ""LUNGTH OF SIMULATION RUN TY! YEAPS 
in AS AN INTEGER VARTAILE 
| OfFINE NeMOMTYS AS AN INTEGEP VARIABLE 
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**SYMROLIC CONSTANTS? 
DFETNE LEVEL1 7O MEAN 
OEFINE LEVEL? 7O MOAN 
DEFINE LEVTL® TO M=AN 
OCFINF LEV=L7 TO M=AN 
DEFTN© LEVEL 7D MEAN 

DEFINE OPS 7) MEAN & 

DEFINT TTRRN2T3, AASTCS,APO™ EAST APOE, NEST 

AS INTTGER VARTASLES 

NEFINE PILOTF TO MEAN 52 ** FIRST PILOT SKILL 

DEFINE PILOTL TO MEAN 58 **LAST PTLOT SKILL 

DEFTNZ NAVF 77 MEAN 59 *"FTRPST NAVIGATO® SKILL 

DSFINT NAVL T7 MEAN 66 "*LAST NAVIGATO2 SKILL 

DEFINE PACAT TO MTAN 3 

DFFIN® USAF™ TO MEAN 2 

DEFINT MAG TO WEAN 4 

DEFINE TAC TO MEAN & 

NEFTNT SAC TO MEAN 5 

DEFINE CONUS TO MEAN 0 


NEFWNE 


DOSFINE YGL TA JEAN 1 
QEFINE YG30 “9 MFAN 30 
1 DEFINE NeYEA™,SGROUP TO MEAN 30 
DEFINE NeYEA®. GROUPS TO MEAN 30 


DEFINE SKILLeCONSTANT TO MEBN SKILL. COEFF 
DEFINE SKILL.CONSTANTS TO “MEAN SKILLe COEFF 


DEFINE NeSKTLLe TYPES TO MEAN 91 


OEFINE TPAINTE TO MEAN O 
DEFTNE HELPER TO MEAN 1 
DEFINE AOPPENTTCE TO MEAN 
DEFINE JOURNEY 4AN TO MEAN 
DEFINE TECHNIC TAN TO MFAN 
MNEFINE SUPES VISOR TO MEAN 


We wn 


DEFINE LEVYING TO “EAN 1 
DEFINE TRAINTN3 TO MEAN 2 
DEFINE ROTATING TO MEAN 3 
NEFINE SFOARATING TO MEAN & 
7 NEFINE OUT.UIPS2ADE TO MEAN 6 
DFFINE ASSIGN “O MEAN 7 
+ DEFINE RETPATNING TO MEAN & 


i DEFINT STATIC. INITIALIZATION, OLE AD MISSIONS g2EAD. BASE. OUTPUTS, 
MANPOWES O-QNUIPE MENTS pMISSION’ SKILLS» MISSIONe SUPEIRT. SKILLS, 
RASE. S'IIPON PT, STAFF TECH. TPAINING gRASIC. TRATNING, ATPCIEW, TOAINING, 
{| TPATNINGs STHEDULER V5 As PLANgT 2AIL AUTHORIZATION, OOS VIAT SE SEPS, 
' SKILL e AN MSTYENT, PETENTION, ADJUSTMENT gUPCRANE, PLANNING, 
ITNGR VE BOG 2DUPS sSPREA T,AGGREGATE ePLANNING, DVYNANTC. INITIALIZATION, 
INTT s PERIVIWS, INT Ts PERTINI sCONFIGURE, 
NUPLICATS AS RFLEASABLE POUTINES 


a 


ENO 


[ A.1l 


SRR OSEAN ener 


MAIN 
CREATE AITRFOORE 
CALL STATIC. INTTIALIZATION 


POTHT £ LIN™ THUS 
H$eeeseENd OF STATIC INITIOLTZATION+ 4+44+44+4 


RELEASE STATTS, INTTIALIZATION, READ. MISSIONS yRO AD. PAST. OUTOUTS 
CALL MANPOWNT®,PTQUTREMENTS 


PRINT 14 LIN® THUS 
#EAEREFEND OF AANPOWER REQUIREMENTS # Ott EE EE 


RELEASE MANPOYTR, REQUIREMTNTS, MISSION. SKILLS MISSION, SUPOD2AT,SKILLS, 
BASE. SUPONT, STAFF, TECH. TOAINING gSASICe. TPAINING AT AC REN, TRATNING 
CALL INIT. YOAPNN 


PRINT 1 CESE THOUS 
BRAALAAREND OF TNIT YEAPORSARERR 


CALL AGGREGATS, OLANNING (YRS¢TOe SIMULATE) 


PRINT 4 LINE THUS 
QAIIAAAENT NF AGGRIGATE PLANNI AGAAAAAAA 


RELEASE AGGPESATE. PLANNING, RPAINING SCH INULF Rs YTARSPLAN, 
TRIALS AUTHIRIZATION, PS 2EN TO Te SEPS gSKILLeANIUSTMENT, 
RETENTION. ADJUSTMENT, UPGIANES PLANNING g INO 2e YEARGAWOS y 
SPREAD 

CALL INSTALL. PASE. PERSONNEL 
CALL DYNAMIC. TNTTIALIZATION(H. MONTHS) 


PRINT 1 LINE THUS 
SARHEREWEGOREGEA 


RELFASE NYNAMTC, INITIALIZATION, INITePESTONS, INTT.PEPT OND, 

CONFIGUR™, JUPLICATE 

SCHEDULE AN INDICTION NOW 

SCHTIULT AN ASSTGNMENT NOW 

SCHENULT A SAVT.ASSTGN NOW 

SCHTIULF A MOVE ENTS NOW 

SCHENUL™ A PESSINNFLe SAVING NOW 

SCHENULE A STOPAGEeMANACER AT 1 


SCHENULT A MASSTVE.2IF IN NeOP PION UNITS 
START STMULATTO } 
ENO 


oe 

"*STATISC TNITTALT7ZATION MODUL™ 

ee 

aS (N01) -CONSTANTS FOR THE PIIN (NeWHATEVER,ETC.) 

IE (07) ="SKTLLNAMES * 

ee (13)-SKTEL NAMES (4 X,5 A 10) 

me C04) ="LEVELNAMES* ee 

#s (O5)"LEVTL NAMES (4 X,A 10) 

BS C05) =“SAST IATA" * 

=e (O07) -NAM™, STATE SMA ICOM FREE FORM ALPHA 

“< (09) -"TPAT TIMES” * 

= (OI=-TPATNTING TIMES FOEE FORM 

billy (19) -"SCHOILDATA”™ 7 

ot (11) -O0TS.TTME, SMT.TIME FREE FORM 

ee (14.1) "4M TSSTONS” 

"6 (11-67). -4ISSTIN NATA PREE FORM (21 CAPD PEO ATSSTON) 
ae +#SWILL «COEF 


ee (1103) -"ONTOITS™ 

8 (AL. 4) -OUTOUTS RY YEAR, RASE, (S,UTILATACTOR) FF 
© (1165) “YF ASGPPFRAC® 

#8 (1169) -O0FF. © AIPeINITIAL© YGePCT FF 

oe (172?) -"YGS°LITS” * 


Wik (13) -YTAP™ 59P SPLITS lala 
ee (14) "PETE TTON' * 
ve C19) RETENTION RATES FF 


OF (18 e1 MVE XTTTRACT” 
ef (15.7, -EXIT FRACTION FF 


. C15} "EL SOL TES ~ 
wh (17) =DEST°=) LSPLIT FF 
me (13) =“TPAVZLTIME® * 
oe (19) -TOAVEL TIMES FF 
i ly (20) <"E TSS TAPAC™ < 
Ze (21) -PIPTLINE CAPACITY FF 
oe (22) ="MINMANFOAC® ne 
rT =o (23) =MINeMANPOWER. FRAN FF 
uty (26) -"“OJTPTT" ~ 
(27) -OI3T %S FF 


~ be (28)-PNTATTON AISTRIBUTION (RY ROTATION CYCLO) 
j hs (29) - IN» SHARE 

ss (30) <1. SHARE 

on (31) -ATP.OTF.FQUIV 

“ * =~ HEANR FO? VEPTIFICATION 

=e FF = FREE FO°M INPUT 


— 


PONTING FOP STATICS INITIALIZATION 
DEFINE NS TO I'TAN Ne TECH. SCHOOLS 
NEFTNT NP TO ALAN Ne TPAVELPTOES 
OUFINS ISSM.O UNS DATA TO MEAN 5 **TNPUT JNIT FOR THIS MATA 
DIFINT %ySolg'ISp Ia Uy Ke DAYS AS INTEGER VARTAARLTS 
DEFINE vy JNK AS REAL VARTIARLTS 
DCFINS INTTSTINATA AS A 1-NTM INTEGER AQRAY 
OTFINT RTALTIATA AS A 12DIM FEAL APRAY 
NETINT ALPHANATA AS A 1-9IM ALPHA ARRAY 
ee 
USE ISEM, RIN. DATA FO® INPUT 
PfCONSTANTS INOUT 
RTA NeSKILL, Ne ATOMEN, SKILLS, 
NeSAST, Ne TRHOOL, YOSeTN. SIMULATE, MAX.LAG, H MONTHS, 
AT2, ANTH.T MAIESTORY OFF ec AUTH se TRAJECTIQV, AT Ze INTTeAITHePST, 
OEE, TNITEN ITHS PCT, MONTHLY ae MANeHRS, 4FANPOWTR, PF 
LET OFFICES. SKILL 1=NeAI2MEN. SKILLS4+1 


LET NeLEVOLES 

LET Ne YEAP=YRI,TO/}STIMULAT™ + PLANS YEAR(MAXe LAS) + 1 

LUT NePERTON=AYRS se TO’ SIMULATI*12+1 

LET YEAPN=N.Y AR 

LET PERTONO=N.PERION 

PRINT 1 LINT VITH Ne PAST Ne SKILLyNoLEVELyOFFeINITA AUTH. °CT AS FOLLOWS 
Ne BASE sSKILL «LEVEL = SESH FREY HOEK OFF SINIT SG AUTHS OCT = F44F, F4E* 


#*CREATSD SKTLLS, LEVELS, READ NAMES. 
LET NeLFNe TOXTEL 
CALL PEANCHTRX(’SKILLNAMES") 
RESFRVE SKILL.~NAM™ AS Ne SKILL BY NeLFENe TEXT 
RFSERYVE ALPHA VATA AS NeLONe TEXT : 
FOR EVEPY SKILL», 10 
START NEY TARD 
PFAD ALPUATATA(1) 
7 LET SKILL. NAME (SKILL, 1) =AL PHADATA(1) 
Lone 
CALL REANCHTOK (“LEVELNAMES") 
RISFRVE OF FICZTRe NAME AND ATOMENSNAME AS NeLEVEL 
FOR FACH LEVEL CALLED Ly 
REAN OFFICE. IAME(L) » ATRMEN.NAME(L) 
AS S 4gh 1059S 19A 1057 


r 
: 


®e*BASTS 
CALL PLANCHECK(™RASENATA") 
REAN APOTLEAS7*,ZAPNES WIST, AASTIC3,TTRBUPTS 
PPRESTRYE STMPASE TO HOLD INVARIANT ASE P2NPTETIZS: 
RESTRYS NAM™, CONTeLOCATION, SEP,POINT, AVEPSTAS, BAS TYP Hy 
STATF.LOCATION, “MAICOM, O86 8SePSy SeBSePSy Me %SePS AND 
RAT ITTONS CYCLE 4S 4. PASE 
FOR FVFRY RAS~ 90 
STAPT NEW TAN 
SKTP 1 FTFLO 
PCAN NAMT(OIASE) 
SKTP 2 FTFLOS 
PEAD STATE.LOCATION(OASE) yMAJCOM (BASE) ySAS=eTYPT( BASED, 
QATATION, CYCLE (3AS=) 
TF SAS=.7YPECRASE) NE 3 AND RASESTYPE (BASE) NE 
FILE “HTS RNASE IN BASE, PRIORITY eSET(ATREORC™) 
RESAPNIL =SS 
TF MAJCOM(RASE) = “USAFE™ 
LET CONT.LOCATION(AASE) =NISAFE 
LET SE, OOTNT (PASED=APOF, EAST 
LET OVE?S7AS(SASE) =1 
ELST IF MAJIC “(BASE) = “OACAT” 
LET CONT.LOCATION(RASE) =OACAF 
LET SE2, OTNT (CRASE)=APOF. WEST 
LET OVEPSFAS(BASE)=1 


LET CONT.LISATION (SASF) =CONUS 
LET SFP, POTNT (2ASE)=S3ASC 
LET OVERS AS( BASE) =0 

ALWAYS ALWAYS 


®P@SCHOOLS. AUTLI THOM F?OM TRATHING TIMe “4ATOTX, 
"eUSTHG NON]|7727 ELEMENTS, 
PPPLSE OYE STOPAZE FOR INVARTANT SCHOOL NATA 
PZSTAVE DUSATTON, SKITLLe TAEUGHT, LEVEL e TAUGHT, LIVEL. TNTIR, 
RASE.LIOF, AND SCHOOLeECAPAFITY AS NeSCHOOL 
CALL PE ANTCH™TK (*TPATNTIMIS") 
RESTOVE P=ALDATA AS 3 
RESFEYE SCHOOL .CHART AS NeSKILLe TYPES BY Ne LEVEL 
PXSTEQVE TPBATNING. TIME AS NeSKILLe TYPES 3Y NeLX VIL 
LET NS=0 ; 
WRTTE NeSCHOIL SNe SKILLE TYPES AS 45° SCHOOLS, SKILLS %,2 I 557 
FOS S=i TO NZ SKILL e TYPES ON 
**COFATING TISTH SCHOOLS ONLY. 
PMWILL BF RAEANTNG TT FOP LEVELS 253,54 (OUTCIMF) 
#4 ANT 5 WILL IE 7ZF99, 
LET TRATT IG, TIME (S,1)=0 
LEY TARATNT'NGSe TIME (9,5) =0. 
PFAN RAEALNATA 
FO? J=1 TO 3, OO 
IF OF ALNATACYJ) NE 060 02% ((0S >= PILOTF AND S <= PILOTL) 9R 
(S >= NAVF AND S <=NAVL)) AND J EQ 1) 
LET NS=NS¢#1 
LET DURATION(NS) =2EALNATA(J) 
LET SKILL. TAUGHT(NS) =S 
LET LTViLe TAUGHTINS) =J41 
LET LYV7LeENTERINS) =J 
PEGARILESS 
LET TPATNINGe TIME(S, J#1) =2REAL DATA (J) 
LET SCHIOL.CHART(S, Jt1)=NS 
LOANP 
LOOP 
REST OF SCHOOL DATA SY SCHOOL, ALSO BMT, OTS. 
CALL PEANLHTEX (“SCHOOLDATA"™) 
RIAD OTS TIM=,3MT. TIME 
7 LET RAMT=NS+14 
L=T OTS=NS¢? 
FOR S = 1 T° ‘IS, 00 
a LET I= SKILL. TAUGHT(S) 
IF I < NeATRMEN,SKILLS O07? I > NAVL 
LET ®AS=.LOC(S)=TT95 


LET RAST.LOC(S) =U2TA 


LET BASE,LOM CIMT) =BASTCI 
LET 8AST,LON (ITS) =3ASTOR 
LET AURATIONC MT) =94T. TIME 
LET DUGATTON( ITS) 2OTS TIME 

LET LEVEL. TAUGHT (AMT) =4 

LET LEVEL. TAUGHT (OTS) =4 


re 


fFTPATNING COMNSTANTS=#==NO WASHOUT PATS FOR NOW 
PX SERPVE TRATNTNGe CONSTANT AS NeSKILL 
FOP S=t TO SAIS ME Ne SKILLS 
LET TEATHT IG. CONSTANT (S) =OMTeTIMEt TRAINING. TIME (S,LEVEL 3) 
FOR S=OFFICTO.SKILLA TO NeSKILL, 
LET TOATNT'IGe CONSTANT (S)=OTSeTIMEFTPAINING. TIME(S LEVEL 3) 


CALL 2FANCHTCK("*MTSSTONS") 
CALL READ. MTSSIONS 


P*TNITIALI72 YTARS AND 2 SETS OF YEAR GRINES 
CRFATT FACH YAR 
LET Yo ARRAY (45% *)=0 
ORSFOYE YG. ADZAY (4,54) AS NeSKILL BY NeLFVEL BY Yo YEAR. GOINP OS 
LET YEAR. GENUS (YTARD) HYG. ARRAY (Fy *y*) 
LET YGsARZAY(*,*,*) =0 
RESFOVE YS.AQ2AY AS NeSKILL BY NeLEVEL BY Ve YAS 62044 
LET VIAPSGPNIIPS(L) EY GeARRAY (yy *) 


CALL REANTHTAK (“OUTPUTS”) 
CALL READ. BASTSOUTPUTS 


@OYTAP GROMP TNTTTALTZATION FRACTIONS RY YGoLl 
RESEPVE OFT. TNITIALS YGeOCT(* 9 *)y5 
ATReTVITIAL’ YGePCT(*,*) AS Ne VTAR GROUP RY NeLEVEL 
CALL REANCHTA XC *YEARGRPFRCO"™) 
RELEASE REALVATA 
RESFPEVE RFALYDITA AS & 
FOR YG=YG1 TD YS530, 00 


7 READ REALVATA 


FOR L=1 TD by 
LET OFF, INITIAL eC YGe OCT (YGyL)=REAL DATA (L) 
LonpP 
RELFASE REALNATA : 
RESTAVE REALNATA AS 5 
FOR YG=YS51 TO YG3N, 00 


Ty READ REALNATA 


FOR EACH LTVEL CALLE Ly 
LET ATO. INITIALS Y%SePC™ (YGyL) =REAL DATA (L) 
tonop 
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#*YEAP GROUPS SPLIT FACTORS FOP UPGOADES. 
CALL PEADCH™OZC("YGRSPLITS™) 
RESTAVE VS.SPLIT AS NeSKILL- TYPES 3Y * 
PfOFFTCER YTAP SROUP SPLITS 
PESERVE YG. PLITCOFF ICES. SKILL 19% 9*) AS NeLEVEL BY 
Ne YEAR. GOVIP 
FOP S=OFFTCSO,SKTILLI+1 TO N. SKILL, 
LET YG. STLTIT(Ss*s*)=YGeSOLIT(OFFICE%. SKILL1y*,y*) 
FOP I=Y¥G1 79 YG3M, FOR L=LEVEL1 TO LEVEL? 
PEAD YG. “PLIT(OFFICE2-SKILLI,L,I) 
PFATOMEN YEAP LF DUP SPLITS. 
RESFOVE YG. SPLIT(1.*,*) AS MeLEVEL RY Ne YZAR.GRNUP 
FOR T=2 TIO Ne VIRMTNS SKILLS 
LET YG.S*WTT(T 9 * 5 *V=HVYGeSPLIT (19 *%5*) 
FOR T=YG1 TT YG30, DN 
PrAD giv 
FOR LeLEVEL1 TO LEVEL7, 9 
READ YG, SPLIT(1isL,T) 
Lane 
LOOP 


"*RITENTION SATTS 
CALL REAICHTT C(“RETENTION’) 
RESERVE RETENTION, RATT AS N.SKILLeTYPES 3Y * 
f*ATPMEN RETTUTTON RATESes 
RESFOVE RETTNTIONSRATE(1_9%,*) AS NeLEVEL 8Y Ne YEAR. G2NNP 
FOR I=2 TO Ne VIRMSNe SKILLS, ; 
LET RETENTTONG PATE (Ty *y*) SPETENT IONS VATE (C19 *y*) 
FOR T=¥Gi TY Y630, FOR L=LEYEL1 TO LEVELS 
PEAN RETFNTION-RATE(L oly) 
"OF FICZR RETENTION RATES 
PESFOYVE RET NTION.RAT (OFFICE O,SKILL15*%,*) AS NeLEVEL BY 
Ne YEAR. GONIP 
FOR S=OFFICFS.SKILLI+1 TO N. SKILL, 
LET RETENTTONG RATE (Sy *_*) =RETENTIONS 2ATE COFFICER. SKILL, * 9 *) 
FO? T=¥G61 TO YG30, FOP LELEYVELA TO LEVELY 
READ RET NT ION, RATECOFFICER,SKILLI gL, I) 


fORETENTION VAPTANCES ARE ALL 1.0 
RESTOEVE OT TTNTTON, VARIANCE AS NeSKILL SY NeLEVEL 
FOR EVERY SVILL», FOR EVERY LEVEL, LET RITTNTION. VAQTANCE=1.0 


e*EXTT FRACTI™) 
CALL PEANCHPRK (ME XITFPAST™) 
RESERVE FXI™ = AS 12 
CEA “XITLF 


PPNESTPTO LSPLT™. PZAN FOND YEAR 14 AND PERPETUAT™ THRU YFA2S,. 

CALL PEANCH™ CC"LSPLIT™) 

FOP T=2 TO NEYEA", 90 
RELEASE PESTREDLSPLIT(Iy%_*) 
LET NESTEWILSOLTT (I, *%,*) =NESIREDeLSPLIT (1,*y*) 
LOOP 

FOR S=1 TY NeSKILLe FOR L=LEVEL3 TO LEVEL 
PEAD NFSTPENeLSPLIT(19S9lL) "8NeBe LSPLIT(1,S91)=369 ALWAYS 


"*PIPELINES. TNITIALI7© FROM PIPE CHAART. 
RISFRVE PTPT. SHAPT AS N.BAST BY N.BASE 
CALL PEANCHET KC" TRAVELTIME) 
LET NP=0 "*WTLL EL # OF PTPFS TO CREATES. 
FO? I=1 TO Ne3ASFy ALSO ©O® J=1i TO Ne BASS, NO 
PEAD DAYS 
TF DAYS NT 0 
LET NP=aNP +1 
REGAROLF SS 
LET PT°=.CHART (I,J)=DAYS 
Loop 
CREATT FVEPY *RAVELPIPE 
L=T K=0 
FOR I=1 TO “JASE, ALSO FOR J=1 TO NeB4ASE,00 
TF PIPES. PHAQT(IeJ) NEO 
LET K=K+4 
LET MTN. TOAVEL. TIME (K) SPT PE, CHAPT(TyJ)/ 306 
LET PT?7, CHART (Ty J) =K 
, LET FXIT.BASECK)=J 
PEGAROLESS 
tonpPp 
FOR EACH RASF CALLED Ty WITH OVERSEAS (I) =0 
ANN I NE AP0E,TAST AND I NE APOEWEST, 10 
FOR FACH BASE CALLED Jy WITH OVERSEAS (J) =1, 90 
IF CONT, LOCATION(J) =USAFE 


TT LET %TPE.CHAPT (I,J) =°IPES CHART (IT,APO".EAST) 
LET PIPE .CHART( JgI) =PLPESCHART (JgAPO™ EAST) 
ELSE 
r LET ®TPE.CHART(T,JI=PIPC CHART (T,APN= WEST) 
LEY SOLPE.CHART (Jy IT) =PIPES CHART (JyAPO = WEST) 
ALWAYS 
L179? 
Looe 


CALL READLHELK(“PTPECAPAC) 
WPITE NP AS 74 NeTOAVELSPIPES = “ol Sy/ 
FOR EVEOY FRAVELPIPE CALLED I 00 
PEAN CAPACTTY (I) 
LET CAPATTTY(CT) =CAPASITY( TI) *300*MINe TRAVELS TIME (TD 
Loop : 
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fOMTN. MANPOUT™S, TQAC 


PEST PYE MIM. MINPOWER, FRAC AS NeSKILL BY NeLEVIL 
FO® EVERY SKTLL, FOR CVERY LEVELs LET MIN. MANTOWES, FAAC (SKILL LEVEL) = 


1.57 
CALL SE ANCHTE KR (MINMANFRAC") 
PRE AN INOTVIMAL CHANGES TO THE MATRIX 
PEAN SyLyV 
WHILE S GT Oy 10 
LET MIN, MANPOHES, FAAC(S,L)=V 
READ SyLyV 
Lone 


OST PEPCINTAS“S 
PESFPVE OFT.9TT AS NeSKILL °Y NeLTVEL 
fOTNITIALI7= LO JEL1=000, LZVEL 2=5 = 41606 
FOP S=1 TO ".3KILL», 90 
LET OJT,PFT(S,1)=0. 
FOR L=2 TO NeLEVEL, 19 
LET OST.LPCT(SyLI=109 
Looe 
Lonp 
CALL PEANCHTCK(“OITPCT") 
RIAN CHANGES “9 THE MATRIX, 
READ SyloV 
WHILE S GT 9, 00 
LET OJUT,°CT(S,L)=V 
PFAD Syl ov 
Loop 


“OT NELAY, TN 4ONTHS, SO2 AN INELIGIALE TO BECOME FLIGTSLE 
RESERVE OITEV*LAY AS NeLTVEL 
FOR L=1 TO Sy LET OJTeNELAY(L) =1 
LOT OST. OFLAY(LEVL2) =8 
LET OJTLOTLAY(LEVELS) =12 
PPRTAN ROTATION. OISTPIRUTION 
POSESVE INITTALA ROTATION. PCT AS 3 BY 24 
LET PCALDATA(*)=0 
RESEPVE QE ALDATA AS 3 
FOR T=1 TO 74,50 
EAD POALVATA 
FOR J=1 TO 3, 90 
LET INTTIAL. ROTATIONS OCT (Jy T) =ZEAL DATA J) 
LOOP 
(.99P 
f*PEAD IP.SHAP, INSSHAPE 
RESEPYE T't.SHARE AS 8 
REST RVE IP.SHARE AS 7 
RESERVE ATPLO-FRFQUTV AS 51 
RTAD IN. SHAPE 
R=AD IP. SHA 
READ AIR.OFF, ZNUIV 


RELEASE PEALTVATA,INTEGES DATS AL PHADATA 


RETURN 
END ""OF STATTS INITIALTIZATIONeccccevece 
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ROUTINE TO REPLN.BASEeOUTPIITS 
NZFINE T AS ATE TNTEGER VARTARLE 
LET Y¥"AR=9 
UNTIL YEAPSYTARD DOccee 
STAPT NFW TAPD 
READ YT AD 
IF YOAR=9 LET YEAR=YEAQRD ALWAYS 
LET SASF=9 
UNTIL SAST=ANERASE 00 
STAPT N7W CARN 
READ AASE,T 
WHILE T NE O DOee 
CErTATE AN OUTPUT 
Let TYPE=T 
READ QUANTITY(OUTOUT) » UTILIZATION ( OUTPUT) 
FILE OUTPUT IN OUTPUTS(YE AR, PASE) 
ROAD T 
Lone 
LONP 
L790°e 
EN) 


f 
{ 
' 
in 
| 
' 
i 
i 


PERI oy 


ROUTINE TNO RFEAN,MISSIONS 
NEFINT SC AS AV 1]eDIM PFAL ADPPAY 
NOFTNE S AS AY INTEGES VAPTARLE 
STACT NEW CAP 
READ Ne MISSTOAI,UPTeCASs FACT IP y UNT eCAP FACTOR TTe CAM eSACTOR,y 
RMT .LCAP, TASTO®, OTSe COP. FACTOR 
CREAT™ EACH 4TSSION 
Let MISSION=0 : | 
UNTTL MISSTON=N. MISSION 0 | 
START NEW BARD 
PEAD 4ISSTON 
READ STOV.FIWIPMENT (MISSIN) 5 ST99 FLYING, HES (MISSTON) y 
MH eo OF 2FH (MISSION) y“UNITIONS® LF (MISSION) y 
FLT. PLA Te COEFF (MISSION) » STO. MUNITIONS (MTSSIIN) 
CET SC(*)=1 
RESERVE Sh(#) AS N.SKILL. TYPES 
LET SKILL: TNEFF (MISSION) =SO(*) 
START NEW SARD 
RFAD S 
WHILE S NE 9 O00 
PEAN Sn(S) 
REAN S 
Loop 
Loop 


ee 
PONTTNE FOP MANPOWER, SFIUTR MENTS 
ee 
DIFINE TEMPSM>QMP.TOTAL AS 1-7IM INTEGE2 SAVED ARZAYS 
NEFING Vo Ve Teh sFLAGe GFL AG. 12g F gc gM pFLYINGs TRAINEE “Sy Ve TECH, 
Me TIOHSFEP, TOTAL, = OUI, TOTAL» MUNITIONS. TOTAL 
AS INTIGER VAPIAALTS 
DEFINT MTSSTO POPULATION AT AN INTEGER VARTAILE 
DEFINT SASTMHAVS AAS e PILOTS, TOTAL eNAVSy TOTAL, PILITS 
AS IN7°3ER VARTASLES 


RESERVE TOMS AS NeSKILLZTYP'S 
RESERVE MP ANT MP.TOTAL AS "Ile SKILL 
ee 
FO® EACH YEAR CALLED Y, 9D 
LET TOTAL. PILOTS=0 
LET TOTAI, IAVS=0 
LET MISS7TO I.FOOUL ATION=0 
LFT FLYT'S. TRAINEES=0 
LET AeTeFH=0 
LET 0.TETH=0 
FOR CAGH SKILL CALLED S 10 
LET TEP(S) =n 
LET MP(SI=0 
LET MP.TITAL (S) =0 
Loop ; 


"*BASES PANKEN TN SETe eeOPS RASTS, THEN UPT BAS, 
ew 
FOO FACH 8 IN BASE.PRINATTY.SET, N10 
LET FLAG.9=0 9 "FLAG IF OUTPUT TYPE 9 PRAS=NT 
LET FUAG¢12=0 “FLAS CF OUTPUT TYPE 12 PRESENT 
FOP FATA O TIN OUTPUTS (Y,8), 90 
TF TYPE (0)=12 LET FLAG.12=0 
SLS™ IF TYPE(O)=9 LET FLAG.9=9 
ELSE 
CALL MISSION. SKTLLS GIVEN O,TIMP(*),TOTAL.PILYTS, 
TOTALeNAVS 
YIELDING FyEgMgFLYINGe TRAINEES 
AY) F TO FP.TOTAL 
ANN © TO ENUIP,. TOTAL 
AJVD M TO MUNITIONS. TOTAL 
FAR FACH SKILL CALLED Sy» 09 
ADD TEMP(S) ~N MP(S) 
IF S>= PILOT® ANN §S <= PILOT. 
AND TEMP(S) TO SASEePILITS 
AND TEMP(S) TO TOTALePILOTS 
FLSE IF S >= MAVF AND S <= NAVEL 
ANN TEMP(S) TO 3ASE,NAVS 
ADD TEMP(S) TO TOTALeNAVS 
ALWAYS ALWAYS 
LET TEMP(S)=0 
Loop 
ALWAYS ALWAYS 
Loop 
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C€TF MTSSTON SHPPOET SKILLS OTQUESTEN, CALSILAT® THEM 
ee 
IF FLAG.9 NE O 
PALL MISSTONs SUPPORTS. SKILLS (FLA Ge Ig TEMP CH) gF Ky My 
AASE.PILOTT, VASE SNAVS, 3) 
FIR FACH SKILL CALLED Sy D9 
‘ANN TEMO(S) TO MP(S) 
LET TEMP(S)=9 
Loop 
PERAPOLESS 


f'TF AASE SHOEN*T STAFF REQUESTED, CALCULAT= TH™M 
ee 
FOR CACH SKILL CALLTN S NO 
AJD 4203) TO MISSION. COPULATION 
TF BASE. 7YPE(R) = 2 
LFT MISSION. POPULATION=NISSTONs POOULATIONFELY ING. TRATNEZS 
PEGARDLE SS 
IF SLAGe12 NEO 
PALL AASEs SUPPO27. STAFF (FLAS. 125 TEMP (*) g “TSSTON, POPULATION) 
FIR EACH SKILL TALLED Sy 09 
ANN TEMP(S) TO MP(S) 
LET TEME(S)=9 
Loop 
RFCAQNLESS 
CAIL MP,SPLIT(MO(*) 4 AyY) 
FOR “ACH SKILL GALLFED S, 00 
AID MO(S) TO 4P.TOTAL(S) 
LIT MP(S)=0 
L0P 
LET 4ISSTONs POOULATTON=0 
LET WASF.PILOTS=0 
LET WSE.NAVS=0 
T? Lone 
L071 


ee 


fF TECH TRAINING BAS=S 
ee 
FOR EACH BASE CALLEN 3, WITH 3ASE.TYPE (2) =3, 99 
CALL TECH, TPAINING GIVEN MPe TOTAL (*) 5 TEMP (4) %y¥ 
YIFLMING AeTECH,9e TECH 
ttt CALL M?.SPLIT(TEMP(*) ,8,Y) 
| FOR FARY SKILL CALLE Sy, 090 
Ba AY) TEM72(S) TO MP, TOTAL (S) 
LET T&M72(S)=0 
i L992? 
Ee Loop 


PPRASTC TPAINTNT PASES ~ a 
FO? CACH BSE CALLEN & WITH QASE.TYPZ(9)=4, ON 
CALL RATICe TRAINING GIVEN TEMPC#) gFLYTNGeTRATNTTS, 
N, ~ZCH,A,. THC4_%yY 
CALL “O.SPLIT(TIMO(*) RyY) 
FOR TAC 4 SKILL CALLEN Sy DO 
ADD TENO(S) TO 4P.TOTAL(S) 
LET TEMO(S)=0 
Lo17e 
PELEASE MP. TOTAL 
PFSEPY= MO.TOTAL AS NeSKTLL 
Loop 
Loop 
RETURN 
END © OF MAN POHES. REQUIRE MTNTS 


ce 
POUTTNE FO? M>,SPLIT GIVEN MP, "TOTAL PNP ENP THTS AASE BY SK 
Ry, "RASS INDEY 
Y year THNEX 
ee 


NSFTNDE MP AS 4 4-DIM INTEGE? ARRAY 
D=FIN= TZU AS 2—OIM INTEGTR APRAYS 
NEFING Iy3yV¥y tel AS INTEG=® VARIASLES 
**SPLTT RASTS PIP PY SKILL INO YEeMANPOWERLOFESIREN, YTeMIN MANPOWEO 
RISEEYE T ANN Yo AS NeSKILL "Y * 
LET VT. MANPONTRERTSTPED(Y, 3) =T(*,*) 
LET VEeMIN.MA IPOW=R(Y,B) =U(%_*) 
FOP FACH SKTLI CALLED S NITY MP(S) NE 0, 90 
PESERVT TO3,*) AS MNeLEVEL 
RESEP YT N0F,*) AS NeLEVEL 
LET IT=MP(S) 
FO? CACH LTVEL CALLEY Ly 90 
LIT TCS ,LIH=I*OESIAE9N-LSFLIT(Y,S,L) 
LET U(SeLI=ETISsL) *MIN. MANPOWER, FRAC (SyL) 
AND TIS,L) TO USAF SMANPOWER,DESIREN(YySyL) 
AND UCS,L) TO USAF se MI Ne MANPOWEP (Y_SoL) 
Looe 
LOOP 
RETUR" 
END *"OF MP, SOLIT 


PONTINE FOT MISSTONS SKILLS GIVEN SQIANPON, VE Uy Ve PTL ITS, 46 AVS 
YISLOING TOTAL.FR, TOTALS © WIP sMINITIONS, 
TOTAL.FT 


ee 
DTFEINT UWTILAFACTO?® AS A PFAL VAPTIAQILE 
NTFTNT OTN AS A 1HNIM INTEIGHR APRAY 
DEFTNE SC AT VN LH—NIM PFAL ATPAY 
DEFINT SOVANOIN, TOTAL.EQWIP,TOTALSFRP,MUNITIONS, TOTAL. 4AINT, 
AVTOMT US. MAINT SFTELN. MAINT O26 es AALINT gp Sy Tyo PO ILITS gQMeNAVS,g 
FIT,ZNT AS INTEGER VASTABLES 
ee 
LTT T=TYOT (CSTIADRON) 
TF T-= 4 
CALL ATPOLOTW, TPAINING GIVEN My PILIDTS,MeNAVS STDIN IIN,GT 
YITCOING FT,NT 
LET TOTAL. “THFTENT 
REGARILESS 
LET TOTAL. FUITPESTI. EQUTIOME NT (CTI FNUANTITY (SQUANPIAN) 
LET TOTAL. FH="OTALSCEQUIOSUTILIZATTON(SOYAIRONY 8 8FLYTNG HOURS 
LIT TOTAL. FP==LT.ePLAN.COFFF(T) *TOTALSFH *PFLIGHT PLANS 
LIT TOTAL.” MAT'TH (TOTALS HF H*MIN. PERL FH(TI)/ 
CMYONTHLY e NAT HRS¥MANPNWER, PF) 
LET MUNTTIONS= TOTALS? EQUIP* MUNITIONS SLF(T) *STVeMUNITTINS (T) 
LET AVIONICS, 4AINTHe 272" TOTAL, MAINT 
LET FIELI. MAT ITH6 353 * TOTAL. “MAINT 
LET N26eMAINT=,315*TOTALOMATNT 
LET UTILeEFASTIRETOTAL.FHS(STO, FLYING 42S (T) FIUANTITY (SQUADRON) ) 
LET SC(*)=S¥TLLe CONSTANTS(T) 
FOR FACH SKYLL CALLEN S, WITH SC(S) NE 0, 09 
GO TO ENS) 
ee 
fF ATOCPIW SKTUL See e PILOTS, NAVI GATO?S, AIRMEN, AIRCOSW 
PEQN(L) "9 FEDNI(2Z)9 CE QUC3)! "EQUC51)" "ENU(52D* FEQUC(S?)® "ONY ( 54) ¢& 
fEQUCE5)® "TAN(56) © "EQUI57) "© “£NU(58)" "ZQIHCES) e #EIUNCKA) ? 
"EQUAL PENNCG2) © “EQU(63) © "EQUIS54)" "SQU(E65)" fF ISHS) ® 
LET SHA (SV=ST(S)FUTIL FACTO 
CYCLE 
**AVIONICS MATNTONAYCE 
PEQUC17)0" "EANC1B) © “ENUC19)*® "FNUC20)" "EQU(21)9" 4EIN(22) & 
LET REVS) =SO(S)*AVIONIC?. MAINT 
CYCLE 
SC INSTPUMONT ANT MEFENSTVE SYSTEMS TPAINERS 
ENC 23) ¢ HEN FG) e 
LET PZN( SD SST(S)EFT 
CYSLFE 


—- es ee 


SPROMASIAVIGATOO/TACTICS T2hlMers 
*eON(25)" 
LET REN(S) =SCCS) ANT 
CYCLE 
CPFITLN MAINT SNANGE 
CE MUCATD® FENICTH) © 
LET REN(S) SSC CS) FFTELA.MATNT 
AYOLE 
PPORGANTZATIONAL MAINTENANC? 
SFQUIZ6)" FENUC79D* *EQUCSOd® *EQUCS1)° 
LET REO(S) =SC(S) #086. MAINT 
CYSLE 
CPHEASONS MECHAIIC 
fENN(33)! 
LET SEN (8) =S5(S)* TOTAL, ESUIP 
CYCLT 
PMATNTCNANCE OTFICER 
*EQuC7 2) 
LET REACS) =SC(S) * TOTAL. MATNT 
CYCLF 
COMINTTTONS NFETCER 
%E ON (73) 9 
LET 2E9(S)=S3(S)*SC (33) *TOTALSEVUIP 
CYCLE 
tone 
ENN 
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ee 
ee 
ee 
ROUTTNE EAP 4TSSTON, SUPPOPT. SKILLS GIVTN SUPOOPT ,2~N, TOTALLEP, 
TOTAL LEQUT Ss MUNITIONS y BAS Te PILOTS BAS TeMAVS 9? 
ee 
DEFINES PTO AS A 4=NTM INTEGP ARRAY 
DEFINT SO AS AV 4-DIM REAL AOPAY 
DEFINE SUPPODT, TOTALS FP, TOTOL s EQUTP gMUNI TIONS SASEs 2TLOTSy AS eNAVSy 
RyWL&yPTLOTeEONIV AS INTEGER YAQTASLES 
ee 
LET WLE=(3994OTALST ONTO) 75 WORK LOAD FACTO 
LIT PTLOT, FUITV=RASE. PILOTS + (VASESNAVS/3) 
LET SA(*)=SUTLL, CONSTANTS (TYPC (SUPPORT) ) 
FOR EACH SKILL CALLED Sy WITH SC(S) NE 9, 99 
Go TO EQUCS) 
SPCOMMUNTCATTONS, ELECTPONITS AND RELATED FUNCTIONS 
FEQUCGYE FEQUCSY® #TQUC1O)% PSOUCLID! CEDNCLHD PEDICTSI® PM QUC2eDe 
LET R=N(™)=SC(S)*WLE CYCLE 
(OWEATHE2 TQOUTIOIENT PEPATR/9PFRATION 
"FOUCK) "E9U(17)# 
LET REN(S)=SC(S) CYSLE 
**ATR OOERATIMI 
fEQU(T)* 
TF TOTAL.©? <= 900 
LET PEI(S)=SC(S) 
ELSE 
LET PFA(S)=SO(S)#C (TOTALS FP=909)/209) 
ALWAYS 
IF PILOT.ZAUIV <= 120 
LET REVS) =RED(S) +1 
ELSE 
LET PF9(S) =2EN(S) + (CPILOTSEQUIV4#SO) /180) 
ALWAYS CYCLE 
**ATQR TRAFFIC CONTROL 
"EON(B)! 
LET REN(S) =SC(S)*REQ(7) CYCLE 
**DITECTION AND DEPLOYMENT 
*FQU(A) & 
LET REN(S) =SC(S)*REN(3) CYCLE 
f*RANAR ENUIPME IT REPAIO/MATNTENANCE 
"E0N(1 3)! 
TF MAJCOM(2) = PACAF 
LEFT 8=N(S)=SC(S) +4 
TLSE TF “A ICOM(B) = SAF 
LET 9°9(S)=S5(S)410 
FLSE 
LET PFN(8)=SC(S) 
ALYAYS ALWAYS CYCLE 


POMINTTIONS MAT ITENANCE 
PENNA) ¢ 

TF MUNTTTONS <= 1090 

LET PTN(S)=SL(S) 
PLSE 
LUT RPTV(S)=SCOS)4CCCMUINITIONS £1000) /29017)9 4149) 

ALWAYS CYTLE 
*fATP TOAFFIC NINTROL OFFICER 
"ENUIH7) * 

LET RIN (S)=SC(S)* (2EN(7)4PTN(8)) CYSLE 
PPWZAONNS SONTOIL OFFICER 
"EQU(AA) & 

LET REN (SY=SC(S)*#RON(39) CYCLE 
PPWEATHER OFFTC TR 
"EQN (89) & 

LET R=9¢6%) =S7(S)* S005) CYALE 
PPCOAMUNIGATIONS/S ELECTPONISS OFFICER 
"ENN(70)" 

LET PEN (%) =S0(5) * (PED (19) F#PEQN (11) + 227(12) 4 2E9 (13) F72AV(LG) + 

REN (16) #R£9(25)) 

CYCLE 
*OMUNTTIONS OFFICER | 
rEQYICT3)e 

LET REACS) =SC(S)*REQ(32) CYCLE 
#°CAR“OSPAPHIC IFFICER 
*FQU(746)¢ 

LET REQ(S =SC(S)*(SC(S)*HLF) CYCLE 
POTNTELLIGENC! OFFICER 


*EON( BS) ¢ 
LET REN(S) =ST(S)*(SC(4)FHLF) = CYCLE 
Lanp 4 
ENN 


i 
i 
i 
[ 


ve 

PINTTNE END ATPORAW. TRAINING GIVEN MePILOTS gMsNAVSs TSIUAD ST 

YTELOTNG SLIGHT. TOATNT LS) NAV, TRATNETS 

CPESTTMATES FLTGHT ANN NAVIGATO® TRAINEES AND REQUIPZN TNSTOYC TORS 

DTFINE MePTL ATS  MANAVS Ty FL TGYT se TRAINE=S gNAVe TRAINE = SpINSTOPILOTS, 

INST.NAVS,TSOUAN AS TNTEGER VARIABLES 

NIFTNT SO AS 1 1-9TM OFAL APRAY 
ee 

LIT INST.PILOTS=.124*%-PILO7S 

LET QUANTITY (SQUAD) =.002*M. PTLOTS 

LET FLIGHT. TOLINESS=, 182*%, PILOTS 

LIT INSTSMAVS=0023*4. NAYS 

LIT NAV. TRATNTES=.11 28M, NOUS 
PPESTAALTSH SOHIOL CAPACITY FNS UNDERGRADUATE PILOT 
f€AND NAVTGATO® TOAINING 

LET SCH IDOL. CAPACTTY (SCHOOL. THART( PILOTS» 2) HFLIGHT. TPAINIZS® 

UPT CAP, FACTO 

LET SCHOOL. CAPASTTY (SCHOOL 6 CHART (NAVE 52) ) =NAV. TIATN “SS#UNTS CAP FAST? 
fPCALCUL ATS STAIDARD MANNING FOR INSTePILOTS 

LET SCC #DESHTLL. CONSTANTS (T) 

FOR ©S=FILOTF TO PILOTL 

LET SC (2S) STINET. PTLOTS*I9, SHATE (OS POTLAT E41) 

**CALCULATS STA IDARN MANNING FOQ INST NAVS 

FO? NS=NAVF T7 NAVEL 

LET Sc (MS) =TNSTeNAVS*IN, SHBRE (NS=NA VE +1) 

END 
ee 

ROUTINE FOR TICH.TOAINING SIVEN MISSeVEVTECHLINST 9 My 

YIELDING AIReTHCHe TRAINEES, OF Fe TH TH, TRAINEES 

ee 

DEFINT MISS.279,TCCHLINST AS 1-0IM INTESE® APPAYS 

DEFINT TIMP AZ A 1=PTM INTEGER SAVED ARRAY 

NEFINT SG AT 1 1-NIM EAL APPRAY 

MEFINT 3yV 4 TT He TRAINTISy TT%, P04 ATR TEGHeTRAINE TS, 

OFF. ToCH. TRAINEES AS INTEGER VARIABLES 


RESERVE TEMP AS NeSKILLe TYPES 


ee 
FOP EVERY ONUTIUT IN OUTPEUTS(Y,9), 90 
IF TYPTCMUTPUT) =10 
LET TTS, PNP=0 
LIT SMC*)=SKILL. CONSTANTS (TYPE (OUTPIT)) 
FOR FACY SKILL CALLED S, WITH SC(S) NE 1°99 
LF™ TECH, TRAINZ~S=(MTSSeREO(SI*SC(S)I/ 
CL# CC TT.SAPS TAC TIRESC(S) #TRATNING oTTM7(Sy 2)) 7209) 
LEY TICH. INST(S) = (TECH. TRAINESS ATT, CAM FACT IO 
TRAINING s TIM™ (Sy 209720 
LET SCHOOL. CAPACITY (SCHOOL oCHART (Sy 2) J=TEOM, TANINEES* 
TT.CAP.FACTO? 
TF S<= Ne AIRMEN. SKILLS 
AND TECHTRETNEES TO ATR TESH.TAAINEES 
LSE 
ANN TECH.TRAINFES TO CFF eTESH.TRAINZZS 
ALWAYS 
LET TTB. POP=TTA.POPFTECHS INST (S)#TE CH. TAATNETS 
LarP 
ALYAYS 
IF TYPF(MITPUT) = 12 
CALL PATELSUPPOPT.STAEF GIVEN OUTOIT, TLIP(*) y TTS. POP 
Fo® FACY SKILL CALLED S nO 
ADN TIMP(S) TO TECH. INST(S) 
LIT TMP(S)=0 
Looe 
ALWAYS 
Loop 
END 


noes net 2 mee 


4 


—_ 


ee . 

ROUTTHS FO WZICTOAINING GIVIN = MTe INST, TOT.ATO TIT, TRAINEES, 
OFF. TF TH. TOATNTES AT Se TECHS TRAINEES MY 

ee 


NZFTN= MTL TNST AS L—NIM INTTGEP AQRAYS 

DEFIN[ TTMP AZ A 1LeOIM INTFEFSER SAVED AQQAY 

NQZFINT SO AS 1 1—TI4M SPFAL APFRAY 

NEFINGT TOT. *TOCPEW, TPAINT 2S, OFF eTECHe TRAINEES ATR TH OHe TRAIN ZS, 
ByV gy MT POP GAM. TIAIN CS ,OTSe TOATNEES OTS INST, 34TA INST 
AS ItT=6°R VARPIASLIS 


RESERVE TEMP AS NeSKICESTYPRSS 


FOR EVERY ANTIT IN QUTEUTS(Y, 9), 00 
IF TYPE (NITPUT)=114 
LET R™,OOP=9 
LET AM, TRATNECS=AT2.T. CHe TOAINTES* 1.06 
LET OTS. TPATNEESETOTS MT 2CREW, TOAINESSHOFF T= OHe 7 QAINTES 
T O76 TNST=(OTSe TALTUEES 4OTS oCAP. FACTO2*OTS a TIME) 129 
T AMTLINST=(BMe TRATHTCS* OMT @ CA. FACTOR BMT, TIME) £49 
T SO(*)=SKILL «CONSTANTS (TYPE (OUTOIT) ) 
R S=t TO NeATOMEM,SKILLS, WITH SC(S) YE 0, 99 
LET AT, INST (S)=SC(S) *AMTSINST 
AN ATLINST(S) TO 975.P0P 
Lone 
FOR S=O=FIC=R.SKILL1 TO NeSKILL, WITH SC(S) VF Dy 09 
LEFT AT, INST(S)=S0(%) “OTS INST 
AD” 4T,INST(S) TO 979,P0P 
Lane 
LET 8792, POP=BT3,PNP+R 1, TRAINEES #9T Se TOAINEES 
LOT SP4IDL GAPACITY (OTS) HOTS, TRAINESS*OTSe CAD. FACTOR 
LET STHIOLs CAPACITY (34T) =BM, TRAINTES* RMT e CAD, FACTOR 
ALWAYS 
IF TYOE(OUTONT) =412 
CALL 3ASF, TUPPNRT.STAFF SIVEN OUTPUT, TE4P(*) AT, INP 
FOR EACH S“ILL CALLED § 19 
AND TFMP(S) TO MT. INST(S) 
LET TE42(S)=0 
Loop 
ALWAYS 
Looe 
END 
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POUT TNE FOQ PAS~,SUPPOPT.STAFE GIVEN SUPPORT ,PLIsMISSION, POPILATION 


NTFIN= REN AS A 1-DIM INTEGER APRAY 

MAIFINS SG AS 1 1-NIM REAL ADPAY 

DIFINT SHPPNP™  MISSTONe SNOFULA TION, 3ASE*™°9N9? AS INTTZFE? VARTAB3LZIS 
D=FTNT TOT.RASE, COEFF AS A OF AL VARTIARL= 

OTFINT AQ TO 42AtH AIRLOFF.ENUIV 


LET TOT.SAS~. SNEFFHA0 
LET SA CFY=ESHTLL. CONSTANTS (TY&EX™ (SUPPORT) ) 


FOR S=i TA M UTAMENSSKILLS, WITH SC(S) NE O AND ADS) NE fy 
AND SC(CSIY4°ST(S)*SC(AIN(S))) TO TOT. 34S 7 COTFF 
ANN SF(89) TO TOT.SASESSOTFE 


"SOLVE FOR RAST POPULATION 
LIT RASE. POP=AISSTON, POPULATIONS (10 -TI9Te 3ASF eSOEFFE) 


- PPRASE SUPPORT PZEQVUIREMENTS 
FIR S=1 T7 ATRMEN. SKILLS=2?, WITH SC(S) NE O, 90 
LET RI9N(0S8) =ST5(S) * BASE, 90° 
IF SCCAOTS)) NE O 
LET PEV(AN(S)) =REN(NO68))+SC CAO(S) )* CSCS) *S9AS%, POP) 
ALWAYS 
LanpP 


PeMZDICAL/OENTAL SUPPORT REQUIREMENTS 
Lit REN(50)=S87(50)*8 ASE, OOP 
LET RTQ(87 =. 190*SC(87)*3AS=, 70° 
LET P=N(83) =. 546*SC( 938) *2AS7, 909 
LET R=0(89)=S7(89) *B8ASL, POP 
LET R7N(99) =. 2719*S0(90)*ST(50)*34SE.P0° 
LET REQ(91)=. 145*S0 (91) *ST(50) *94SE,P0P 


ENO 


POUTIN® TO ITNTY.YFARO 
MTFING Sole ¥Se%CyLSIZE AS INTEGER VARIABLES 


LET YG A2PAVC Fy * yy *SVEAPLGQOUPS (Y TARD) 
FOR FRCH SKTLL CALLED Sy FO? ACH LEVEL CALLED L 49 


eee 


LET YSAFEMTSST ONG AUTHOYEL PD yg Syl) “USAF se MANPOWSP SVU STRENYET AQIS ,L) 


LET USAF. P2OJECTIONCYZS PG, SyL) =USAF.4ANPIWUP, DESTRAZV(Y"APOySyL) 
taqe 
FOR S=1 TO NeATRMON.SKILLS,ALSO FOR EACH LEVEL CALLE Ly 99 
ADD WSAFLPONJECTIONCVERRD,SyL? TO YESSAT PHN (YE APD) 
FO? YG=YG1 TO YG30 
LET YG. APRAY CS 9b, YG) =USAF. PROUZCTION(Y=ARD,SyL) * 
ATRe INITIAL. YGeOCT (YG ,_L) 
tane 
FOP SSOFFTICT?.SKILL1 TO N.SYMILL,ALSO FOR ZACH LEVEL TALLFO Ly, 99 
AID USAF, P20SESTIONCVEART, Syl) TO VES AIFFISERSCYE APN) 
FO°® YG=YS1 TO YG%0 
LET YG. APOAY(S,Ly, YG) =USAFe PROJECTIONC YEA R0,SyL)* 


OFFe INITIALS YG. OCT (YS yL) 
fi tonp 


RELEASE AIT® TNITIALC YG.°CT AND OFFe INITIAL. YG.PCT 
CALL YESe TPAJ=CTORY 
FIR FACH BAST Weee 


CALL OUPLITATE GIVEN YF. MANPOWER DESTRED (YARD, 34SF) 
YIELOING YEeAUTHORIZATION (YTARD, VASS) 
LOOP 


Ena 


ows te 


POUTINE FO® YES. TRAJECTORY 
NEFIN™ V AS AN INTEGER YVASTARLE 
NEFEINT X AS A BEAL VAPTARLE 


FO® Y=i TO "YEAR, 00 
LET X=¥ 
LET YES. ATOMEN CY) HYVES eA TOMIN (YVEARO)* CATES TNITCAUTH, OCT) * 
C010 V4AITA. AUTH, TRAJECTORY) ** (Y¥=1)) 
LET YES. NE“ ICERS( VY) H¥ 2S. OFFICERS (YVEARN) * (OFFA INIT AUTH OCT) * 
(C1. 0490FF, NITH, TRASECTIPY) ** (V¥m1)) 
LOOP 


END 
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= 


ROUTINE FOR AFLG PESATESPLONNIN' GIVEN Ne YAR» 

OF FINT Ne YERKES, IAXe YRyePNSY AS TNTSGER VARTARILES 
LET PNSN. VEAQRS*L2 

LET MAX, YR=PLAM, YE APC EILEF (RAL SF (ONtMAXSLAG))) 


CALL YEAP,PLA™ (YEARD,1) "YARD TS SPECTAL 
CALL PLAN. SAV™S(1) 


LET YOA2.GRIUSS (2) =YEAP,G2NUPSCYEARD) 
CT YTAQ. GROUT (YF ARO) =0 
FOR Y=1 TO MAYS YR=1 NNecer 
CALL YOAR. PLAC, 41) 
CALL PLAN. SAVING (Y4+14) 
LET YTARGGQNIIS (Y42) =VEAR, GIOUPS (CY) 
LET YEAP.LGENIIS(Y) =0 
LOOP 


FOR Y=1 TO “AY.YR, ALSO 
FO® 3=1 TO N.BASS. WITH OVERSEAS (R)=0, 9D 
LET X(¥,*=YT,AUTHOOT ZATION (Y,9) 
LET TSEZ=S=VIMS F(X (*,*)) 
FOR S=1i T) ISIZF&, 9 
LET JST7E=LENCF(X(S,*)) 
FOR L=1 TO JSTIZ&, 50 
AVY X(S,L) TO CONUS.USAF. Me AUTH(Y yS,L) 
tLon> 
LogP 
LOOP 


CALL RLSE. YEAR PLAN. DATA 

CALL TRPAINTNG. SCHEDULER (19°N gt yMAXeY2) YIELOING 
USAF HOLS (*5*5*), 
AIQMEN. RES 2UITS(*) » 
OFFICES. PF CRUITS(*) 


RELEASE USAF, XCHANGE 
END 
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POUTINE FO? YA PLAN GTVIN BASE CYR NEXTLYR 
DEFINT RASS VY AGSNEXTe Y2,SybL AS INTEGER VARTARLTS 
MNEFING AYTHA,VUTHL AS 2-0IM PEAL SAVED ARRAYS 
DEFTNT NEW.LOF TEN AS A 3-NIM PEAL SAVED ARPAY 
RESEPUC AUTHO,AITHL AS NeSKILL ®Y NeLEVEL 
RESEOEVE NEWER TIN AS NeSKILL RY NeLEVEL AY Ne YZARQG2919 
CALL TRIALEAUTHIRIZATION SIVEt! YOSeOFFICZAS(NE XTC YQ) 4 
YES<ATRMEN(N-XTSY2), 
YSAF eMANPOHE?, DESTATO(NTNT. V2 % 9 *) yg 
PPYTELOING®*® AUTHO(*, *) 
CALL PRLYG, SPRAY GIVEN NEXT. YR? 
©*PAOJECT SEP SPATIONS BASEN ON STD PETENTION PATES, 
CALL PPFNTST.SEPS GIVEN YEAR. GROUPS(AASE.LY®), 
PETENTIONS RATE (*#,*#,*), 
PE TENTION VARIANCE (*g*), 
®PVYTIELOING!® YEARS GROUPS (N= XTeYP), 
ZXPECTEDeSTPAPATTIONS(NTXTAY 25 *y*) y 
ACTUAL e SEPARATIONS(NEXT, Y2_5*_*)y 
USAF ePROJECTION(C NEXT Y2_9 “_*) 
ee 
**ANJUST ANTH TI COVER MINIMUM SKILL PEQUTRIMENTS 
CALL SKILL. ADJUSTMENT SIVEN AUTHO( *,*) gAUTHLI (CF, *), 
USAF eMINe MANPOWER (NE XTL V2 9 *y*) yg 
*YTELOTHG!® AUTHL(*,*) 
CALL PR.VUSA®.PR0J GIVEN NEXT. YR AND USAF’ PROISCTION (NT XTC V¥Ry *y*) 
CALL RET TNT ION, ADJUSTMENT GIVEN AUTH1(*,*), 
USAF. PRO JECTION(C NEXT. YR, *5*) y 
USAF e920 JECTION (PAST. VY2—%—*) 6 
RETENTTONSRATE(*,*,*) 
NEWeRETEN(*,*,*) 
CALL PRLUSAS, ?20J GIVEN NEXTLYR AND USAF ePROUZTOTION(NEK Te ¥2_ *_*) 
ee 
©#PONHNIJECT SFPAPATIONS BASEN ON ANJUSTEN RATES 
CALL PRENIST.SEPS GIVEN YEAR.GROUPS (TASES YQ), 
NEW eRETEN(*,*,*),y 
RETENTIONe VARIANTE (*,*)y 
"OYTELOING’® YEAR,GRIUPS(NEXTLY™),y 
EXPEC TSEDe SEPAPCATI ONS (NEXT eC Y2g*9*)yq 
ACTUAL Se SEPAPATIONS (UEKXT AV yg *a*)y 
USAF ePQOJECTION(NE XT, VYRy%y *) 
CALL PR.-USAF. ROI GIVEN NEXTSCYR AND USAF. P2NUNKCTION(INE XT SYR, *y*) 


** CALCULATE UTG?ADE NE MAND 
CALL UPGPAXE. PLANNING SIVEN AUTH1(*%y*) gNEXTS YVR, 
USAF ePROJECTIDICNEXT V2 9%) 
fOYTELNING! © USAF eSCHONL ce AUTHINE XT VY %y *y*) yg 
USAF eUPSRANES(NEX TY 2g te Fy 
US AF ePCHANGE (NT XT OV 24% #) 
YTELATHG AUTHL(*,*#) § PANJUSTAFA FQ? TRAINING 


*"FALCULAT® FINAL MISSION ANTHO2RTZATION, PROJECTION 
FOR FACH SKILEL FALLED S FOR L = 2 TO NeLEVEL ND 
LET USAF. MISSION. AUTHINEXT, YReSoL) =AUTHL(SsLI= 
USAF. SCHOOL. ANTHONE XT YR Sel) 
AID NISAF, PCHANGE(NEXTeY%gSyL) TO USAF SPROJECTIONCNEXT SY R9S_L) 
L20e 
"ANN EFFECTS N= UPGRADES AND RPECRUITS TO YEAR GROUP MIMOPY 
CALL INCR.YTASSPOUPS GIVEN USAF eUPGRADES(NEXT eC Y2% 9 *o%) y 
""YTELTVING’® YEAR. GROUPSCNE XT. YR) 
CALL P2R.YGeAPPAY GIVEN NEXT. YP 
ee 


fYNOW USAFeMISSTONSAUTH + ISAT. SCHOOL AUTH = USAF,PROIJECTION = AUTH1 
ue (LELEVEL1 TO LFVFL9) 
**OTSTRIQUTE MISSION AUTHORIZATION TO 8ASES 
FO® SACH BASE, 10 
CALL CONFIGURE GIVEN YieMAHPOWERS DEST AAD INI XT eS YQ, 3A57) 
YIELOINS YE-AUTHORIZATIONINE XT SYR, 3AS*) 
SALL SPREAM GIVEN USAF eMISSIONSAUTHINTXTS YR ye *9*) 4 
YE se MANSNME OSNESTRED(NEXT eC YRs 3AS=)y5 
USAF. MANPOWERSOOSIREDINEXTLY 29% 5 *) 5 
PPYTFLOTINS 98 VEZAUTHOOT ZATION (NEXT YR BASE) 
Lone 
END 
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ROUTINE TO INC. YE ARGIOUPS SIVEN UPGRAUE Sy) bxULTIY 
OTETNE MEMNSEXTPA AS REAL VAPTABLES 
DEFINE UPGPAN-S AS A 2=TTM PFAL ARRAY 
NZFINT GROUT AS A 3=D™ INTEGER ARPAY 
MTFINT SglbyYS,CHANGE AS INTEGER VARIABLES 
LOT NI XTYR(*%,%,*)=GROUP(*,*,*) 
LET ExToOn=0 
FOR ZACH SKILL SALLE) S OO 
WRTTE S AS 7,” SKILL “oI 3 
FOR U BACK F 20M LEVELQ TO LEVEL3, FOR YS=YGi TO YS39 99 
LET YONZUPGPADES (S,LIFYSGe SPLIT (SyL-1,YG) +=XTRA 
LET ZX TPA=FOAC,F (MEN) 
LUT CHANGT=TRUNC © FCMEN) 
SURTERCT SHANGE FROM NEXTYR(S,L=1 YS) 
AND GCHAME? TO NEXTY2(S_L,YG) 
W2TTE LyV¥3yVPGRADES( SL) gYGe SPLIT (Sy Lat YG) gME Ng EXTRA, CHANGE, 
NOXTYD (SyL=1y YG) gQNEXTYOE(S Ly VG) AS Ay? IT 2 V0595d50(6935) 47 WEA D)y 
31 5 
LNOP 
AIN TRUNGC.FC'IPSRADES(SyLEV™L1)) TO NIXTYR(S,LEVEL1,YS1) 
LINP 
END 


ROUTTNE TO PPFATCT,.SEPS GIVEN THISYR, "#M8UPQINT YTA% G2NUD MEMORY 
RATry, POR TENTION PATE 
VA2TANCE, "®PETENTTON VARTANCE 
NEXTYG, "*NEXT YEA? 320U> 
SEPS, ""EKPERTIO SEOAPATIONS 
TRUE e SEPS, ® ACTUAL STPARATIONS 
PROJECTED ""EXPFOTEN ®NPYLATION 
ee 
NEFINS VASTANTE AS A 2=0IM PFAL ARRAY 
DSFINS THISYS,NEXTYG AS 3-DIM INTEGE® ARRAYS 
QEFINE RATE AZ A FeNIM QR=EAL ARPAY 
DUFIN= SEPS,TIUES SEPSyP2OUFCTED AS 2=DI4 REAL ARPAYS 
DEFINE YG9Sel AS INTEGER VARTABLES 
DEFINT WILLe STAY sy TRUESRATE, “XTRA AS REAL VAPIABLES 
ce 
LET THISYR(% 9%, *) =THISYG(*%9*%%) 
LET NFEYTYR(* 4%, *)=NEXTYG(*%y%y%) 
LET FXT2A=H 
FOR FACH SKILL, FOR FACH LEVFL, 00 
LET SEPS(SKILL»LEVEL)=0 
LET TRUE. STOS(SKILL,LEVIL) 
LET PROJFCTE V(SKILL »LEVEL) 
LooP 
FOR FACH SKILL STALLED S FOR EACH LEVEL CALLED Ly 
FO® YG=YGi TO Y%30, 00 
*#TRUE SEPARATTONS 
LET TRUT. PATT=MINGF (Ly 2ATE (Syl YG) *VARTANSE (S5L)) 
LET WILL. STAY=THISYR (Sy Ly VS) *TRUEeRATIFEXTPR 
LET NEXTY®(SyLy YG#1) =T2UNC.F (WILL. STAY) 
ADD THISY®(S,LyYG)-WILL.STAY TO TRUESSEPS(SyL) 
s LET EXT2A="OAC.F (WILL STAY) 
**EXPTCTED SEPAPATIONS 
LET WILL. STAY=THISYR(SyLy VG) FRATE (SyLy YG) 
ADD THISYR(SeLy YG) WILL e STAY TO SEPS(S,L) 
47 AID YILL. STAY TO PROJESTED(S,L) 
Looe 


=0 
=0 


- END 


ROUTINE FO? SET ONTION, ADJUSTMONT GIVEN Aty POPTITTTTD, PRINR. POPULATION, 
RETENSNEW.RITEN 
NEFINT RETEN,TEWeRETEN AS 3-NIM QEAL APRAYS 
DEFINE AL»PONIESTEN,PPTOR, ONPIILATION AS 2-NIM REAL A2PAYS 
DOFIN= PSUM AZ A 2=NIM REAL SAVED ARRAY 
NEFINT HIGHT2,.NFENS, NEW? AS REAL VARIARLES 
DEFINE SelsyY¥S AS INTEGER VASTABLES 


RESERVE RASUM AS NeSKILLE BY “Ie LEVEL 


FOR EACH S¥TLL CALLED S, FOR? ZACH LEVEL CALLED Ly WHeeee 
LET RSUMIS,L)=9 
ALSO FO® YS=YG1 TO YG30, 0 
LET NTU. RETINGS bo YS) =RITEN(S gk 9 YS) 
AND PFTINGSsl,YG) TI PSUMI(S,L) 
L INP 


"PAOIUST NIWOT TEN TF PROJTCTITON EXCEEDS AUTHORIZATION 
FOR CACH SKTLL CALLED Sy 20. ce. 
LFT HIGHT® NEE WS=0 
FOR? L SACK FPOM LEVELO TO LEVELS, 09 
IF AL(SyL) FHIGHERNEENS <¢ PROUECTINIS,L) 
LET PROJECTED(S,L)=AL(S,L) + HIGYERSYEENS 
EY NEWR=PROSECTEN (Ss LIZOPRIOR, POPULATION(S,LY 
FO? YG=YGi TO YG?9 
LT NiWe RETEN(S,L», YG) =NEWRFRETEN(S ob V5) Z2SUM(S gL) 
REGARSLZSS 
AD AL(CSyLIY=PROJECTED(S,L) TO HIGHER, NETS 
Lage 


Loop 
RETURN 
EN) 


POUTTNE FO® SKTLLeANJUSTMENT GIVEN AD,OUTOUT,AP PAY, MTT, MANPOWERO 
YIELYING AL 
NTFTN7 AD,ZA1, VTPUT. APRAY AS 2eNMIM REAL A®RAYS 
QIFINT MIN.YA IPOWTR AS A 2— TIM REAL ARRAY 
N-FINZ Spb pTUMMINGS TOTALS MT’! AS PECURSTYE THT "GES VABZTAILES 
NZFIN= SUMely OTAL AS RECURSIVE REAL VARTABLES 
LET AL(*%,*) =OUTOUT, ARRAY(*, *) 
FOP FACH SKILL “ALLEN § 99 
FOP SACH LiVcL CALLE L NO 
L=T ALCS,LI=AN(S,L) 
AND ADC(S,L) TO SUMeL 
AID MIN.MANPOWER(S,L) TO SUMSMIN 
LOOP 
IF S'IMeL < S'IM. MIN 
WRITE SoS Melb eSUMeMIN AS SZe"SKILL “eI 35° AUTHIPI7ZATION IS” 
9 (551)d,5" ~-BELOW MIN OF**,T 5 
RIGARILTSS 
ANN SUMeL TO TOTAL 
ADIN SUMZMIN TO TOTALSMIN 
LEFT SUM.L=N 
LEFT SUM.MIN=) 
Lane 
IF TOTAL < TOTALSMIN 
WPIT™ TOTAL, TOTALeMIN AS /y/_"%**** TOTAL AUTHORIZATION OF, 
0(8,1) 5" IS SELOW USAF MIN MANPOWER RAMT™AN(By1)y 
ee AINIAT, / 
ALWAYS 


END 


ROUTINE SPREAD SIVEN INSUT,MUMERATOR, DENOMINATO?, OUT 


DEFINE T 
DEFINE O 
NCFING Ff 
DOFTNT F 
ee 
LET FXTRA= 
LET ISIZE= 


NPUT,YFHOMINATO2 AS 2-914 PEAL ARRAYS 
UT ,MIMEPATOR AS A 2-NIM INTEGER A2PAY 
sJeg TSTZEZIST7E AS THTEGER VARIABLES 
XTPA, AEN AS REAL VA2TABLES 


0 
VIM. CINPUT (*,*)) 


FOP I=1 TN TST7= NO 


LET JST 
ALSO FO 
IF FNO 
LET 
FLSE 
LTT 
ALWAYS 
AI 
LeT 
LFT 
Looe 


ENO 


ZE=SLENOF COUT (Ty *)) 
R Js2 TO JSIZE 90 
MINATIR(T,J) NE Oo 
MENSTYPUT (I, J)* (NUM® PATOR(IT J) /IENOMINATOR(T,J)) 


M~N = 0 
EXTPA TO MEN 


OUT (T 5S) =TOUNC AE (MEN) 
EXTPEASFRACSF (MEN) 


oo 


POUTINE TRAINING, SCHEDULER GIVEN PLyPN, ""FIRST & LAST DESTREN PERTION 


NEF TNE 
NE FINE 
NTFING 
NEFTNE 


FIRS Te YRe PLEN, 
Ne YRS. PLANNED 
YIELOTNG HOLE Sy A, RECRUITS, 06 PE SRUITS 
PLsPNe=T2STeVYRePLANy te VYQSe PLANNED AS INTIGE® YARTABLES 
AsPZOOIITS, Oe. RECRUITS AS 1-DIM INTEGFR ARRAYS 
HOLES (S A 3=0IM RTAL ARRAY 
Sok Vy MyM yg P2gLASTe? V2. PLAN MA Xe My V2ePLANG Ply 


YRePLAN. P12 AS INTEGER? VARIARLES 


DEFINE 


RACKIIPZRECRUITSsEXTRAZSEPS AS REAL VARIASILES 


LET LASTS YRe PLANSFIRST 6 YRe PLAN+Ne YRSe PLANNE D941 
LET MAX.P=12* LAST. YP. PLAN 
RESERVE HOLFS AS MAX.) 3Y NeSVYILL 38Y NeLEVEL 


FOR SACH 


SKILL CALLED S§ 99 


*°ND TRAINING NIT OF LFEVEL9? ALL OJT OUT OF LFEVUL7 


LEFT t= 


FOR Y 


LEVELS 
RACK F 20M LAST.Y2ePLAN TO FIPSTeYR.PLAN 90 


LET YRePLAN- P12=12*Y 
LET YRePLAN. PLEYRePLAN, P1211 
FOR © RACK FROM YRePLAN. P12 TO YRePLANe P1 DO 


LET M=TALENDAR.MONTH(P) 

LET HOLES (P_S Ll) =USAF. POCHANGE(Y,S,L) *EXITOF (CM) 

LET HOLES (P,S plo) =USAF ePCHANGE (CY sSyLe1)*EXTTT (M4) 
+HOL TS (P5S,5L) 

LOOP 


LOOP 
LET SACKUP=D 
“*HILES IN LEVTL Sy 35 1 


FOR L 


RACK F20M LEVELS TO LEVEL1 90 


ADD TRATITNGS TIME (S,L4+1) TO BACKUP. 
FOR ® BACK FROM TRUNCeE (MAX eP=S3ACKI2) TO P1 09 


LET V=2LAN.YEAQ(P) 
LET M=TALENDAR.MONTH(P) 
LET P2=CEIL oF (PATRAININGS TIME (SyL +14) ) 
IF Y >= FIPSTs¢YR,PLAN 
LET SEPS=USAFsPCHANGE (Y¥ySyL) *EXITe FCM) 
ELSE 
LET SEPS=0 
ALWAYS 
LET HOLES (PySyL)=SEPS+ 
OUT. PCT (SyL 41) *HOLES(PySygl 41+ 
(1-O5TePCT(SyL41))*HOLES (P2ySyLeid+ 
HOLTS(PySyL) 
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PPRECRUITS PENQNTPED FOR THIS UPGRADE FLAN = SUM OF ALL LeVEL1 HOLES 
RESEPVE AZREC2UTTS AS PN 
RESFPVE O,2-C°NTTS AS PN 
LET SXTPA=0 
FOR ZACH SKILL SALLSD Sy FOR P=P1 TO PN 19 
IF S <= Ne AI2MENS SKILLS 
LET RECPUTTS=HOLES(CEIL. F(P434T TIME) 5S 51) + 
EXTRA 
ANN TRUNC.FCRECPUTTS) TOA ARECRUITS (9) 
LET =XTOASFRAC.F (RESRUITS) 
ELSE 
LET ROCOUTTS=HOLES(SETL. F(P+tOTS TIME) 9551) + 
EXTRA 
ADD TOUNLLECRECPUITS) TO O.PECRUITS(%) 
LET EXTPA=FRACSF (CRESRUITS) 
ALWAYS 
L2OP 
ENQ 


ROUTINE FO? TPTALSAUTHORTIATION GIVEN YESs Oy ¥ESs Ag DESI27 7, AUTHO 
NEFINE VISeMpVESSA,DESIR= SO, OTSTRESAsSyL AS INTEGER 2-PJPSTVE 
VARTARPLES 
DEFTHT NTSTETT AS A 2=DIM OT AL ARRAY 
DEFINE AUTHN AS A 2-NIM GOFAL ARRAY 
NOFINT PCT.N, RCTLA AS REAL VAPIARLES 
ee 
ee 
FOR S21 TO NeATOMEN.SKTLLS, FOS EACH LEVEL CALLZ™O L 
ANN DESTREVMS,L) TO OESISE.A 
FOR SzOFFICIP.S€ILL1 TO NeSKILL, FOR EACH LEVEL CALLED L 
AID DESIRE M(S,L) TO NESIPE.O 
LET PCTLAHYESLA/NESTRE,A 
LET PLT.N=YSS.N/OFSTIREO 
FO2 S=1 TO “Ne AT MEN SKILLS, FOR EACH LEVEL CALLAO L 
LOT AUTH (S,LI=DISTIREDV(IS,LI*PCTAA 
FOR S=NFFIL-O,SKILL1 TO NeSKI'L, FOQ2 EACH LIVEL CALLE 
LET AUTHIV(S,LI=D=ISTRED(S,L)*°CT.D 
END 


ROUTINE FOR UPGPANFE.PLANNING GIVEN &,YRyPROIFCTTD, 
TOeSCHIOLy UPGRANES, SHANG 
YIELDING NEW. AUTH 
OCFING Ay TO.STHOOL sUPGRANTS, CHANGE y NE We AUTH pPROJESTEY 
AS 2=IM PTAL ARRAYS 
NEFTNE SyL,¥? AS INTEGE? VASTARLES 
- MEFINT T,PSIM,ASUM,UPGROSUM AS REAL VARTASLES 
ee 
LET NEW. AUTH (*, *) =A (4, *) 
FOR EACH SKILL TALLiID S DO 
LOT oSU4=n 
LET IPGR9S'IM=9 
LET ASUM=0 
FOR L=LEVTL3 TO LEVELI 900 
ANN A(S,L) TO ASUM 
AND PROJITITED(S,L) TO PUM 
WRITE SyLyACS oh) ,PROJECTEN(SSLY AS Zy2 LT 492 (8,2) 
Lane 
ee 
**AN AMOUNT T SOMES OUT OF AUTHORIZATION FO2® LEVELO & 1 TPAINING 
LET T=(TRATNTNGe CONSTANT (S)* (ASUM=PSUM) ) 701 2+TQATNINGs SONSTANT(S)) 
WRITE SyTRAININGCONSTANT(S) 97 AS T GyS 1y2 D(By2)5/ 
FOP L BACK F?0M LEVEL9 TO LEVEL3 NO 
LET NEW.AITH (Ssh) =A(SyL) <T#OESTREDeLSPLIT(Y2ySyL) 
LET CHANG T(SyL) =NTW. AUTH(SyL) =<PROJEST=ED (SyL) 
AID CHANGZ(S,L) TO UPGROSUM 
LET UPGPAIES (SyL) =UPG2NSUM 
LET TOsSCHOOL (Sy L=-1) “UPGRADES (SyLI* (1-05T.PCT(SyL)) * 
TRATNINGS TIME (SL) 712 
WRITE SyLyNEW A ITH(SoL) sCHANG® (SyL) pUPGRADES(SyL) TOs STHOOL(SyL),y 
OJUTSOCT(Sy th) pTOAININGe TIME(SyL) AS 752 T &y6 D(8y2) 5/7 
Loop 
LET UPGRAD“S(S,LEVEL1) =UPG°DSUM = "LEVEL1 OUTPUT 
LI0P 
ENO 


POUTINE PLAN. SAVING GIVEN YR 
OZFINT YR AS. AN INTIGER VAPTANLE 
DIFINE SUPP1,30P882 AS 2=NI" INTEGER ARRAYS 
NMEFINE 7 AS AY INTEGER YAPTARLE 
USS UNIT 3 FO? OUTPUT 
LET 7=9 
LET YE AR=YR 
WRITE YEAS AS “VEAR {I 2 
FOR EACH SKILL, 
FOP FACH LTVEL, 00 
WRITE USAF.MISSION.AUTH(VEAR,SKILLy»LEVEL), 
SAE MANPOWE OPNESTSFO (YEAR SKILL LEV™L) y 
EXPE TTEDSSEPARATIONS(YIAR,SKILL LEVEL) yg 
NSAP. UPGPADES(YEOS,SKILL LEVEL) AS 2 107,09) 4? 39(5,0) 
Lane 
WRITE AS “RASE 
FOR FACH SAS™, 19 
Let S'IPP1L(*,*) =VE.MANPOWS?, OTSTRED 
LET SUOP2(*,* )=VYE, AUTHORIZA~ ION 
FO2 SCACH SKILL, ALSO 
FAR CACH LUVEL, 90 
TF LEN. F(S'IPPL (SKILL, *)) <LEVEL 
WRITE 7,7 AS 2T& 
ELSE 
WRITE S'IPP2(SKILL,LEVEL) »SUPPL(SKILL,yLEVEL) AS 2? IT G 
ALWAYS LI0f LIAP 
PE TURN 
END 


POUTINE TO PLOT. YER 2) PLAN, DATS 

FOR EACH YTAR NN) 

LET V=YqA2 
IF YEAR. GRONMS(YEAR) NE MV, ZPELEASE YEAR. GROUPS(YEA2) ALAAYS 
RELFASE VSAF,PROITCTIONCYE A, *y*) 
PILE ASE WSATLIPLPAISS(YERPR,*,*) 
RELEASE USAF. SCHOOL*e AUTH(YTAR,*,*) 
RELEASE YSAE, IANPOWERSDESIPINCYEAR, *y *) 
RELTASE USAF, MIN, MANPOWER(YOE AR, *5*) 
tan? 

RELEASE SETEMNTIIN, RATE (15%5") 

RELEASE 2°TINTTINS PATE COFFICE Es SKILLA 9*5*) 

RELCAST RETONTT IN, VARIANCE 

RELEASE YG.SP TT(1,*_*) 

RELZASF VYGeSPLITCOFFICERSKILI15)*,*) 

FN) 


ROUTINE TO TNSTALL *’ BAS CePZRSONNEL 
DTFIN™ SHASE AND EXTRA AS PTAL VARTARLFES 
NEFINE Spb ga WGe%CeLSI7VE AS THTEGER VARTARLES 
DEFTNT SNP, SCLIGISLES, INILTGIBLES AS 2—NIM INTEGES APOAYS 
ACTFITNE MENOPY AS A 3=DIM INTEGER ARRAY 
PFSFEFRVE SUPPLY, OSTRELISTRL Sy, OUTS INCLIGI@LES, PENOTIG.Z OT, 
AND RITATIONS MEMORY AS NeBASE 
FOP FACH RAST Ddecee 
CALL NUPLITATE GIVEN YE.LUTHORIZATION (YF ARN, 3AS=) 
YIELDING SUOPLY( SASF) 
FALL CONFIGURE GIVEN SUPPLY(RASE) YISLIING 
PENITNG.OJT (BASE) 
CALL. TOMFISURE GIVEN SUPPLY (BASE) YISLOING 
OUT. ELTSIRL-S(8ASFZ) 
FALL SOQNETSURE GIVEN SUPPLYC(BASE) YIZLIING 
QUT. TNTL TGIASLES (8AS7) 


COTNTTIAL OST EL PSTABEETY 
LET SUP (*, *) =SUPREVCSASE) 
LET ELIGTALES (*_*) SOUT CELIGISEES (BASED 
LET INEL TE TALESE,*) =0U7. TNELTOTBLES CAQSE) 
FO® “ACH SSTLL CALEED S 
FOR t=1t TO LENe FCSUP (CS, *)) Weevevece 
LET SLIsPRe Ss (Sek l=.5*SUP (Seb) 
LET TEL ISIILES(S eh )=. S*SUPCSyE) 
LN9° 


P°THITIAL ROTATTON MEMORY 
IF OVERSTATINASE) =4, 
LET M™4IQV(*,*,*)=0 
RESTEVT MEMORY (*,*,*) AS NeSKILL SY * 
FOR F°R4 SKILL CALL™D § DO 
LET LUI7L=LENF(SUP(S,*)) 
IF LUST7E > O 
R“STRVE MEMORY (S,%*,*) AS LSIZE BY ROTATION.CYCLi+1 
LcT Red 
IF 2OTATION.CYCL£=18, LET R=2 ALWAYS 
T® PNTATIONCYCLE=24, LET %=3 ALWAYS 
L°T ExTRA=0 
Fe? L=1 TO LSIZE, FOR GC=1 TO ROTATIONSCYTL— WMDee0e 
LET SHAPESSUP (TS, LIFINITIALS RITATIONS OCT (I7%,S 
AT) EXTPA TO SHAPES 
LET SXTPASFOAR. F(SHAPT) 
LET MEMORY(S 9h 40) =TRUNCSF (SHARE) 
LooP 
ALWAYS 
LOOP 88TH NEXT SKTLL 
REGAPML7SS 
Loop 


RELEASE INTTTAL. ROTATION. PCT 


©*OUTPUT DATA CILLECTORS 
RESERVE ASSTSNONT, ASSTGHeOST, ASSIGNeST%, ASSTGNe SSH, 
FLOW SEP, OSTeFLOWZOUT, TOeSCHeFLOW, FLOW. OUT, 
FLOW. TN, OUTS FLOW.IN 
AS Ne PASE BY NeSKILL 3Y AeLEVEL 


RETURN 
END 


ROUTINE DYNAMTC. INITIALIZATION CHNRIZONe) 


CALL INTT.PZETIIS 
CALL TNTT.PTP NID 
CREATE TACH STH IDL 
**INTTIAL SCHANL GUTFLONS 
FOP P=1i TO MAY.ILAG 9 
CALL TRATNING. PPOJESTION(P) 
FOR FACH SCHNIL AN 
IF TIMFE.E(P)=NURATION(SCHIOL) <= Oy 
CALL MAKE. AQLK (TECH. TOR ININGs FOOL (%,SCHIOL) , 
SKILL. TAUGHT (SCHOOL) yLEVELs TAUSAT(SCHIOL) 1, 
NAST. LOC (SCHOOL) y 
TOATNTNG) 
YIFLOINS AQLK 
LET CLATSCARALK) =SSH9OL 
SCHEDULT A GPANUATION CAQLKySCHOOL) AT TINT, (9) 
ALWAYS 
LFT TECH. T2AINING. POOL (P, SCHOOL) =0 
Loop 
LOOP 


LET He MONTHS=f 
CALL MAKE. ASSTSNMENTS (PERTODON, 1) 
FOR P=2 TO HOOT7ON.P OOce 
LET He MONTHS=%=1 
CALL MAKE. ASSTGNMENTS (Pm1,°) 
taape 
LET H. MONTHS=HORIZON.P 
END 


i 
5 
H 
} 


ROUTING INTT. °° 2TONS 
GCRFATE FACH P7TRTON 
SURTRICT 1 RIM N,PFRION 
FOR FACH PTOTIN, FOR FACH PAST Nee. 
LET AUTH. SUIPPLY=Y 2. AUTHO?T TATION (PLANS YEAR (PZRT IN) 4 BASE) 
LET MIN. TPPLY=YVE, MIM, MANPOWER (PLANs YEAR (PHOTON) 4 TASE) 
Laap 
FOP PFPTON=1 TO HMONTHS+#1, FAR EACH BASE AN 
CALL CON"T3UPE GIVEN AUTH. SUPPLY YIELDING PROUZATTION 
CALL GCONFTSZURE GIVEN AUTY, SUPPLY YIELOING 20TATTON.SDOL 
Loop 
END 


ROUTINE TTT, OF PFTNNA 
FOP FASH RAST NIee56 

LET AUTH.LS JOPLY (PT PTOI, BASE) AVE eAUTHOPTZATION(Y "7170, 8ASE) 

LET MIN, SUPPLY (PE QTOII,g VWEK) HVE e MING MANPNW RI YIN2F7, ANSE) 

CALL JIPLTTATE GIVTN SUPOLY (PASE) YIALITHNG 
PEN Y=CTTON(PFERTINON, RATT) 

CALL COMFTSYRE GIVEN SUPOLY(RASZ) YIELIING 
ROTATTO'l. POOL (PERIONI9 gPASE) 

Lane 


ROUTINE TRATNTNS.PROJECTION (°) 
DEFINE PySyly3CH AS INTTIGE®? VARTASBLES 
FOR EACH SKTLL CALLEO Sy, FO? L=ELEVELS TN LEVEL? 99 
LET STN=ST ANIL, CHAPT(IS,L) 
AND (1-OIT, POTOSs LIF USAF, HOLES(P,S,L) TO 
TECH. TRAINING. PIDL (Py SCH) 


L37P 


END 


ROUTTHE MAKT ASSIGNMENTS COMTNNS1,%) 

MEFINE TEMP, Py, PMINUSL AS INTEGEP VARIABLES 
OE FINE LEVY.FLAS, AeSUPPLY, P?OY 

AS A 2-NIMYMTNSTINAL INTECGAR APPRAY 

LET PF STOD=P 

PESERVE LEYY.FLAG AS NeSKTLL 7Y NeLiEVEL 


**PLAN TPANSTTIIN OF OTS ANN 2MF GRADS TO TECH SCHOOL 
CALL LEVEL. ASSTGNMENT (PERTOD) 


®fUPDATS SCHOML PROJECTION 
CALL TRAINING. P2ROJECTION(SCERION) 


"FREMOVE OJT Sy, SEPS, ROTATION, TT OUTS FROM THTS MONTH'S ORIJELTIIN 
CALL EXTRAONLATZCPMINUSL, PZRINND) 


PFSFEVE DEMANT 1S NeRASE BY N. SKILL 8Y NeLEVEL 
FOR EACH BASE, 19 
LET AsSUPPLY(*,*) =AUTH.SUPELY 
LET PRONI(*, *)=2ROJECTION 
FO® FASH SKILL, 
ALSO FOR LEViL=1 TO LENS F (ie SUPPLY(SKILLy"))5 90 
LET DEMAND (BASE,SKILLs LEVEL) =A. SUPPLY (SKILL LEVEL) 
PQANI(S“ILL LEVEL) 
TF NEMANN(IASE,SKILL LEVEL) IS POSTTIVE 
"fF ALLOCATE SOME ROTATIONS TO FILL THIS DEMAND 
LET TEMP=GET.ROTATIONS(RASE, PERIOD, SKILL gL &VEL) 
SURTRACT TEMP FROM DEMAND (BAS® ,SKILL,LFVOL) 
ANN T=”P TO PROJI(SKILL,LEVEL) 
REGAROL SS 


IF DEMANTC VASE SSKILLe LEVEL) IS PCSITIVE AND 
LEVEL “S NOT GREATER THAN LEVEL7 
**ALLOCATE SOME TECH SCHOOL G°ANS TO FILL DIMAND 
LET TEMP SGET.GRADUOTES(SASE,SERTOD, SKILL LIVEL) 
SUBTRATT TEM FROM DEMAND (BASE sSKILL,LEVEL) 
4NN TEM? TO PROJ(SKILL, LEVEL) 
REGAROLESS 


IF DEMANNCYASESSKILLsLEYSL) IS POSITIVE 
LET LEVY. FLAG(SKILL, LEVEL) =1 
REGARDLESS 
Loop 


“FOR EACH SKILLy 


FO® FACH LEV™L WITH LEVY.FLAG(SKILL»LEVEL) IS ZNUAL TI 1, 
CALL LEVY (P= ZION ySKILL»LEV"L) 
LooP 
RELEASE NFEMANF 
RE THON 
END ""OF MAKT. ASSIGNMENT 


LE AAT FRA EMME INI IEG 


— a a 


ROUTINE LEVEL1e ASSIGNMENTCAP) 
DEFINE APANZ=EM AS INTEGER VARPTARLES 
FOR FACH SKTLL, 90 
LET NEZD=HUSAFE, HOLES (AP,SKILL,LFEVEL1L) 
IF WETO TS NOT 7FEO 
LET SCHOOL=STHOOLe CHAPT(SKTLL,LEVEL! ). 
CROATE AN ARLK ; 
LEFT SI7Z=NTFID 
LET LVL=LEVFL’S 
LET SKL=SKTLL 
LET CLASS=SCHNOL 
LET SPUPPNST=TOEATNING 
LET JESTINATTON=3ASF,.LOC(SCHICL) 
TF SKILL IS NOT GREATER THAN NeATRMEN, SKILLS 
FILE ABSLK IN OISPOSITIONCRMT) 
ELSE 
FILE AILK TN DISPOSITIONCOTS) 
ALWAYS 
REGARNLESS 
Lone 
RE TPN 
END 
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DEMARIO ESA NE gr 


ROUTINE TO FXTELPOLATE (PHINUS1,P) 
DEFINT PMINUS1, TOeSCHy Py TO.UPGy FROMZUPG, SEP, OUT, 2N0L 
AS INTEGER VARTARLTS 
DEFING F AS REAL VAQTASLE 
DFFINT MEMORY AZ A DIM INTETER ARRAY 
DEFINE PROJ. OUTZELIGINL TS, INELIGIVLES AS 2-9IM INTEGEP ARRAYS 
DEFIN® OLDe°PNJ, POTATION, NEF, PROJ 
AS 2=NIMENSTIONAL INTEGER ARPAYS 
LEFT P=RIOD=P 
FOR EACH ASE, 10 
LET POTATION (*,*) =ROTATION, POOL 
LET PONS, 0NT(*,*) =PENTING, DUT 
LET FLIGIALTT(*,*) =OUTSELIGIOLES 
LET INLIGIALES(*,*)=OUTSINELIGIALES 
LET MEMORY (*,*,*) =2O0TATION, 4” MORY 
LET OL. PROJ (*,*) =PROUFLTTON (PMINUS s8ASE) 
LET NEW, ORD SE*, *) =PON JECTION (P, AASE) 
LET TO.UPG=N 
FO2 ZACH SKILL CALLED S, 
ALSO FO® L=1 TO LENeFCOLN. PROU(Sy*))y 79 
IF OVEPSTAS(RASED = 4y 
LET POTATION(S gL) =MEMORY (Syl CELL o F (PyROTATIONSSYSLED ) 
ALWAYS 


LET F=MIN.& (1 »HeMONTHS/OJTeDELAY (L)) 
LET OST. FOILEFLIGIRLES(S,L) -PROJeOUT(S,L) +F*INELIGTILES(S gL) 
LET FROM. PG=0IT. OUT (BAS 9S59by°,O0JT. 29N0L) 


LET SEP=ST>,OUT(RASE Syl yPy 
EXPECTE 1, SEPARATIONS (*5 *_*)) 


LET TO. SCHETT. OUT (BASE ySyLyP) 
TF TOeSC¥ TS NOT ZER)D 
GREATE AN ABLK 
LET ST7Z=TO.SCH 
LET SKL=5 
LET LVL=L 
LET DFSTINATTON=BASESLYIC (SCHOOL* CHART(S,L)) 
LET PUPPENSESRETRAINING 
LET CLASS=SCHOOL CHART (S,L) 
FILE AMLK IN PLANNED. ASSIGNMENTS 
PEGARDLESS 


LET NEW.PRID(S,LI= 
NLD e PROJ (So L) +TO.UPG=FOIO0 Me UPG=SEPHT0. SCH 
eROTATTO'N(S,L) 

AND FROM.U%G TO PROJ-OJT(S,L) 


LET TO0.U°G=FROM.UPG 


tone 

Loop 

RF TIEN 

END °* OF ZXTPAPOLATE 


ROUTINE OUT. ONTCAZS shy PePONL) 
DEFIND AUTH AS A 2—NIM INTESES ARPAY 
NEFINE SoSoly %VyPOOL AS INTEGER VAPTASLES 
OQTFING OUTS AD A REAL VARTASLE 
LET ANTHO*, *) AUTH. SUPPLY (PP) 
IF L=LEVELS, 
PETUPN( 1) 
ELSE 
LET OUTS=0 IT, PCTC SL 41) *'ISAF HOLES (Py Syl +1) 
LET OUTS=MIN.F(COUTS,°09L) 
LET Y=OL "N,. YEAR (P) 
RETUPN( IAT. FCOUTS*AUTH(S gL )ZUSAF eMISSIING AUTH (Ys SyL)) ) 
ENO 


ROUTINE SLP.ONT (BySyl yF,USAF.SEPS) 
DEFINE AUTH AS A 2—DIM INTEGER ARRAY 
DEFINE RoSoly Vo AS INTEGF® VARTAPLES 

? DEFINT USAF.S=PS AS A 3-NIM PEAL ARRAY 
OFFINE OUTS AD A FEAL VARTAPLE 
IF AVERSTAS(3) = 1 RETIRN (0) 
ALWAYS : 
LET ANTH(* ,*) =AUTH. SUPPLY (P,48) 
LET M=CALENTA2. MONTH (©) 
LET Y=PLAN. Y=AR(P) 
LET OQUTS=EXTT.F OM) FUSAF.SEPS (Ys SsL) 
RETURN CINTSF COUTS*AUTH(S,L) /CONUS. USAF, MeRUTH(Y,S,L))) 
ENO 


ROUTINE TT.OUT (9,S5L,P) 
DEFINE AUTH AS A 2-ONIM INTEGFE® ARRAY 
DEFINE BySyt.y %VyO2 AS INTFSEP VARIABLES 
DEFINE GUTS AZ A SEAL VARTARLE 
| LET AUTHC*,*) =AUTH. SUPPLY (P,%) 
TF LELEVTL® 02 L=LEVEL7 
| RETURN( 0) 


aR SET SN TR A ee one 


ELSE 
LET P2=CTILe FE (P+TRAINING. TIME(S,Lt1)) 
LET OUTS=(1-0UTePCT(SyL4+1)) *USAF eHOL 7S (P25S,L 41) 
i] LET Y=OL AN, YEAR(P) 
RETURNCINT. FC OUTS *AUTH(S)L) SUSAF eMISSI ING AUTH (Vy SyL))) 
ENN 


aI ae ROT ENE mi 


ce 


ce 
ee 
oe 


ROUTINE TO GET, 20TATIONS(NEST,P,SKyLE) 

NEFINE ROTATION AS A 2@=NIM INTEGER AQRAY 

OF FIN’ SEST, 9 SZ_y BSy AMOUNT, ANS, SKy LE AS INTESE VARTIA3ILES 

LET ANS=0 

LET S7=JEMANNIN-ST,SK,LE) 

FOR EACH SASF CALLEN BS WHILE S7 IS NOT ZERO, 
WITH 8S N7™ NEST, NOcees 

LET ROTATION(*,*) =20TATION. POOL (P_, 3S) 

IF ¢€ CONT.LOFATION(DEST)=CONIIS OR 
(CONTELOCATION(COEST) NE CONUS AND CONT. LOCATION(23)=SONYS) ) 
AND ROTATTINOSK,LE) IS NIT ZERD, 


LET AMOUNT SMINSE (S7,29TATION (SK LE) ) 
SUITRACT A AQINT FROM S7 
SUBTRACT ASOUNT FROM POTATION(SKyLe=) 
CRIPTE AN ABLK 
LEFT SIZE =A40UNT 
LET SKL=°K 
LET LVLELe 
LET DESTTINATION=NEST 
LET PUR PNST=ROTATING 
FILE ASLK IN PLANNEO.ASSTGNMENTS (P453S) 
ADD AMOUNT TX ANS 
PEGARDLESS 
LOOP 


RETURN WITH ANS 
END "OF GET. POTATIONS 
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ene gE GL IEE LE IONS NIE ELLY Fe A = 


bis —"seine 


wnsend 


i 


a 


we 


— 


—4 


ROUTTHE TO GET. SRANUATESCOSST,HP,SK,LC) 
AMOUNT, ANS, SCH 


DE FING 


REST, “Fy LE, Py HRs SK; 


AS TNTTGER VAPTASLES 
LET ANS=0 


LEFT S7= 


TEMANNCIOTST, SKy LE) 


LET SCH=SRHOOL. CHART (SK4LE) 
FOP P=PTRTON.F(TIME.V) TO H9, WHILE S7 IS 


IF TICH.TRAINT 166 P00L (F,SCH) 


IS NOT ZER9 


NOT ZTRO, 


LET AMOUNTEMTNS FE (S7 TECH. TAA ININGs FOOL (P,SCH) ) 
SU3TRACT AMOINT FROM S7 
SURTPACT AMO'INT FROM TECH, TOAINING SPOOL (Py SCH) 
CREATE AN AQLK 


Ce 
LET 
Let 
GEr 
LET 
LET 


SI77=AMO'INT 

SKL=SK 

LVLEL® 

JESTINAT TON=DEST 
NEPARTUOT, DATE=TIME.F(P) 
PURPOST=ASSIGN 


FIL© THIS ASK IN NISPOSTTTON(SCH) 


A190 


AMOUNT T7 ANS 


ALWAYS 


Looe? 


RETUPN WITH ANS 


END °° 


OF GETeS2ADUATE 
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Weer 


wie err nee O 


ROUTING LEVY (%,SKyL™) 
DFFINE POS, BP1, POOL, FLAG, P 
OCFINE POS, PRIIL, Me SUPPLY A 


IMENSTONAL APRAYS 


OTFINE PATE AS VEAL VARTARLE 

LFT FLAG=0 

*RESTART! 

LET POS=0 

LET NFG=0 

FOP FACH 3ASF,99 

IF DEMAND(3A57,SK,LE) TS POSITIVE 
AID NEMAND(NASE,SKyLE) TO ©NS 

FLSF 

SUITEACT OZMANT(RASE,SKyLZ) TPOM NEG 

ALWAYS LOO? 

IF PNS TS NOT G2EATFR THAN NEG 


CET 


PATE=PNS/N7G 


GO TO ‘COMP ® 


fst 


IF FLAG IS FOUAL TO 1 LET PATE=1 GO TO "COMP? 


ELS" 


FOR-E£AGH RAST, 10 


GET 
LET 
LET 
Ltaae 


PROJ (*,* = 220 UECTION(©, QASE) 
Me SUPPLY (*,*) =4INe SUPPLY (P, BASE) 
NEMANIDCRAS~ySKyLE) =Me SUPPLY (SKy LE) —P2ROI(SKyLE) 


LET FLAGS1 

GO TO "RESTARTS 

‘come? 

LET BP1i=1 

FOR ZACH BAS® CALLEN ®8N WITH DEMAND (BN,SK,LE) IS NEGATTVE, 90 


LET 
LET 
LET 


PROJ1(*, *) =<PPOJECTION(%, QN) 
POOL=<DEMA IDC BN gSKyL&) FRATE 
RO=RPL 


ALS FOR 3P1=89 TO Ne SASS WITH OEMANO(BP1,SK,yL°o) IS PISITIVE 
WHTLE POOL I3 NOT ZEPO, NO 


Loop 


CREATE AN ABLK 

LET ST7ZF=4INeF (POOL, TEMAND (BPL ySKyLE) ) 
LEY SKL=%K 

LEY LVL=LF 

LET DESTINATION=S9P1 

LET PUP POS==LEVYING 

FILE ASLY TNH PLANNED ASSIGNMENTS (Py 3N) 
SUSTPACT ST7E FROM POOL 

SUSTOACT ST7F FROM DEMANN(8P1,SK LE) 
AND ST7= 7 DEMANO(AN,SKyLE) 

SUITRACT STZE FROM PROJI(SK,LE) 

LET SQNI*,*) =PROJELTION(P, 3°91) 

AND SI7E TI PROJI(SKyL®) 


RE TIM 


ENO 


ee nF LoVY 
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Gy PP, IN AS INTEGER VARIAGLES 
0 


ROUTING FINOSASTIGNMENT (Spb p8hgPZASON AMOUNT) 

ee . 

DFFING Syl Ihyd 1OUNTS AMOUNT. LOFT s9Sy TOTAL, SHARE 
AS INTEGTR VARTARLES 

ee 

SUBSTITHTE THEST & LINES FOF FORALL 

FOR EACH BASE CALLED 8S WITH °S NOT FQUAL TO RA 

ANN OVFOSFAS (AAV FOVERSERS (9S) NOT ENUAL TO 2, OY 

LET SUP2(*,*)=SUPOLY (RS) 

IF LINSFCSH99(8S,*)) IS GREATER THAN L 
SURSTITUTE THSS= 8 LINES FOR PLACE. 3LK 
CPEATF AN ARLK 
LET ST75=SHAR® 
LET SKL=S 
LEFT LVL=L 
LET PURPDSE=ASSTGN 
LET DESTINATTON=AS 
LET DF PARTURE., DATE SHTIMC.V 
CALL CHTFCK,PI&= (ARLK,PIPE, CHAT (BA,8S)) 
NEFINE SUPP AS A 2eNIMENSTIONAL INTEGEP ARRAY 
LET TOTAL=9 
FOR. ALL 

AND SUPP(S,L)TO TOTAL 

ALWAYS LOO? 

LET AMOUNT.LEFT=AMOUNT 
FOR. ALL 

LET SHARE =AMIUNT*SUPP(S,LI/STOTAL 

IF SHARE IS GREATER THAN 0 

PLACE, BLK 

SUSTRACT ST72 FROM AMOUNT.LEFT 

ALWAYS ALWAYS LOOP 
IF 2FASON IS FOAL TO ROTATING 
LET SHPO(*,*F=S'IPPLY (RA) 

SUBTRACT AMOUNT FROM SUPP(S,L) 
PEGAPILESS 

IF AMOUNTSLEFT TS ZERO 

RE TURN 

ALWAYS 

FOR. ALL 

50 TO "OvFoe 

ALWAYS LNN®S 
SToP 
"OVER? 

LET SHAPE=AMONNTI LEFT 
PLACE. SLK 

RE T'IRN 

ENO 


ROUTINE FINI. ST IOOL (COLD.STHONL» AMOUNT) @"FO2 EXCESS OTS,494T GRAS 
DEFINE OLO.SCHIILNZW. SCHOOL ,AMOUNT AS INTESE® VARIA3LES 
IF OLO.SCHONL = BMT 
LET NEWs SCHYILERANDIOF( 15 "Ne AIRMEN’ SKILLS 9 1) 
ELSE 
LET NE We SCHIIL=RANDTLF(3*N, ATRMENS SKILL S419 No TECH, STHOILS, 1) 
ALWAYS 
CREATT AN ARLY 
LET SI7E=AMNUAT 
LET SKTLLESKT'L, TAUGHT (NEW. SCHOOL) 
LET LEVELEHILPF2 
LET DF STINATTON=3ASF6LOG (NEW. SCHOOL) 
LET CLASS=N°W.STHOOL 
LET PHPPOSE=TOATNING 
LET SDF OARTURE .NATESTIME SY 
CALL CHFCK.PIPE (A3L Kg PIPE. CHAPT (AASESLOC (OL 16 SCHOOL) y MESTINATION) ) 
END 
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4 


anemenerern 


ROUTINE TO CHOC%. SCHOOL (RLK,SSH) 
MEFINE SLKy NEW. RLK, SCH AS INTEGER VARTAILES 
LET SCHONOL=SCH 
IF ENSOLLMENT TS FOQUAL TO SSHNOL.eCASACITY 
“FILE BLK LAST tN SCHOOL. DUET 
AND SIZECALKY 7O SCHOOL. QU =U=.SI7E 
RETURN 
ELSE 
IF SI7ECRLK) TS GREATER THAN SCHOOL. CAPATTTY="N20LLMENT 
PERFORM SPLTT(ALK,SCHOOL. CAPACITY-ENROLLMENT) YIELIING 
FILF N We SLK IN SCHOOL, QUEUE 
ADD ST7E(NTW.8SLK) TO SCHOOL. WEUE. SIZE 
RE GAPZOLFSS 
ADD SIZECRLK) 7) FENSOLLMENT 
SCHEDULE A GRAD IATION(BLK,SSHIOL) IN DUSATIIN UNITS 
END °¢ OF CHECK. SCHOOL 
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NEWe ALK 


ROUTTN® TO CHEZ, TOAVELPIPT(BLK,PIPSLING) 

NFFING LK, NEW.ALK, PIPELINE AS INTEGER VARTASLES 

IF VOLUME (OTOFLTNE) TS EQUAL TO CAPACITY (OTPELINE) 

FILF RLK LAST TN WAITINGSQUEVE (PIOZLINE) 

AND SI7Z(9LK) TO WAIT. QUEUL. SIZE 

RETURN 
FLS® 

IF ST7F(ALK) TS GREATFR THAN CAPACITY (PIPELINE) =VOLUMF (OTPILINE) 
PERFORY SPLIT( ALK, CAPACITY (PTPELING) -VOLUMF(PISELING)) YITLOING NEWe ALK 
FILE NEW.SLK «IN WATTING, QU=UCCPIPELINE) 

AO SI7=(SLK) TO WAIT, OUFUL.STZE 

PEGA SALT Ss 

ADD ST7F( ALK) T7 VOLUME (PIPELINGT) 

SCHSDULE A PTOF.LEXTT(RALKyPITPELINE) IN MINS TRAVELSTIMZ(TPELING) UNITS 
RE TURN 

END "OF CHECK, TRAVELPIFE 
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ROUTINE ASSTG".THECK GIVEN RLX,PERIOD ,8AS= 
OTFINT ALK, > *IND, BASE AS LITEGER VARTA3L ES 

GO TA PYP(CONPENTSECRLK) ) 

"PURCASSIGN) © "FUP (ROTATING) © "PUP(LEVYI'NG) ° 


AND ST7F (ALY) TO ASSTGNLOUTCRASE,SKL(3LK) gL VLORLK) ) 
RTH 


"PUR (NIT. USGPADN™) ° 


AIM STZE(ALK) TO ASSIGN. OJT(CRASE,SKL( BLK) gL VL (SLK)) 
R=TUPH 


"PUP (SEPARATING)? 


AND SI7™-(3L¥) TO ASSIGN. SEP(PASE,SKLOALK) gL VL (QLK)) 
RITHRY 


(PUD (TRAINING) © #PUR(RETRATNING) # 


AID ST7ZE(3LK) TO ASSIGN. STHCRASE ,SKL (SILK) gL VL (ALK) ) 
Pr THON 


EHO 
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ROUTINE CREXTT ONS yb 9 Sy PEASOM) 
DIEING tySyby JeEEASOM AS INTEGE®S VARIABLES 
N=FTNT M=MQOY AS A Z=NT4 INTEGER A2RAY 
DEFINT SUP,LIGISLES, INELIGIALES AS 2=7T4 INTEGE? AAYS 
ODSFINE SHARF AND EXTRA AS A REAL VARTAILE 
DEFINE THIS.9,P,CYCLE,LI“4 AS INTEGER VARIABLES 
IF N=0, WT! CLSE 
LET SUD(#,*)=SU>PLY(B) 
LET ELIGIOLTS(*,*) =OUT.ZLIGTALES (3) 
LIT TNELIGIW7S(*,*) =NITeINTLIGIILES (9) 


ADD N TO SUP(Sy5L) 


TF OVERSTCAS (2) =1 
LET MEMOAPY (*,*,*) =POTATIIONSMEMORY(B) 
LET THIS. °=PEQTOD.F(TIME.V) 
LET CVYELF=°20TATION-CYCLE(®) 
TF REASON CIE OJT.UPGRANE 
ANY N TV MEMORY (Sy Ly COLLeF(THISe?y SCYOL™) ) 
FLSE 
LET SHAPTSN/CYCLE 
LET LM=P4CYCLE 
FOR P=THIS.°P TO LIM ON 
LEY =XTRA=FRAC.F (SHARC) 
AND TRUNCSF (SHARE) TA MEMORY (S,LyCFLLeF (2°,CYCL=E)) 
6N% =XTRA TO SHARE 
tare 
ALWAYS 
ALWAYS 


IF (REASON=TJT.UPGRADE OR PFASON=ASSIGN) AND L < LEVIL? 
AND N TO TNELIGIBLES(SyL) 
ELSE 
ANN N TO ELISIALES(SyL) 
| ALWAYS 


ENS 


ROUTINE] NEAITT ClgSgbh eMePEASON) 
DEFINT Ny Sghs FeREASONSTHIS., My OgCYCLE,LTIY AS INTTEGER 
VAPTARBLES 
DEFIN[ MTMOSY AS A 3HNIM INT EGSP ARRAY 
DEFINE SUPSFLTGISLES, INELIGSIILES AS 2=TIM INTEGED PRAPAYS 
QEFINT SHAPE, EXTRA AS ZEAL VARIABLES 
IF N=, RETO YT ELSE 
LET SUOC*#, *=TSUPPLY( 2) 
LIT FLIGT3IL7S (*,*) =OUTeFLIGTALES (9) 
LET INELIGTIPLIS(%,*) =OUTLIN OLIGISLES( A) 


SUBTRACT N F2RIM SUPCSoL) 


IF GVERSZAS PIAL, 
LET CYCLE = 20TATION.CYSLE (8) 
LET MEMOOV (so %_*) =ROTAT IONS MEMORY ( 3) 
LET THIS.°=PERTODeF(TIME V) 
IF REASON =QOTATING, 
SUITPACT N FROM MEMOPY (SyLyCELLeF (THIS. 29SYCLE) ) 
ELSE 
LET SHARE=N/CYCLE 
LEFT LtT4=P+CYCLE 
FO2 P=THIS.P TO LTM 99 
LET IXTRA=FRAC.F (SHARE) 
SUNTRAST TRUNCeF (SHARE) FROM 4EMORYV (Sal gCLLe KF (P,SYCLE)) 
AD) =XTRA TO SHARE 
Lane 
ALWAYS 
ALWAYS 


IF PCASON=°°T?ATNING 
SUITRACT N FROM INELIGISBLES(SyL) 
17 IF INELIGIWES(S,L) < 0 
te SUSTRAC™ -INELIGISLES(S,L) FROM ELIGIALSS(S,L) 
LET TNELIGISLES(S,L)=9 
ALWAYS 
ELSE . 
SUBTRACT N FROM ELIGISLES(SyL) 
IF ELIGTALTS(SyL) < Dy 
SUATRACT = ELIGISLES(S,L) FROM INELIGIALES(SyL) 
LET ELTSTSLES(S eL)=0 
ALWAYS 
ALWAYS 
RETURN 
END 


oe 
5 
e 
if 
4 


ve 
ee 
ae 
ae 
se 


EVENT ASSTGNMENT 
DEFINE HORT7ON, 29FRINN AS AN T'TTGER VARIA3LE 
LIT HORTZON.PZPIOD=PERION FS TIME e VtHe MONTHS) 
CALL MAK=. ASS TGNMENTS (HORTZON« PERTON|$1,49O2AT7ON, PERIOD) 
IF HOPIZON.PF PION < N,PZAIOD “*CONTINUE ASSIGNMENT OLANNING 
SCHEOULE AT ASSIGNMENT TIT" 4 UNIT 
PEGAROLESS 
END 


EVENT GOANUATTOICSG. IL Ky65-. SF) 
NE FINT GS. 2LK_yGGeSCH AS INT “GER VARIABLES 
MEFTNT NE WeIRNE%, RLK,y ORIDEP IEW BLK AS INTIGE® VARTAPLES 
CALL FLOW? (55¢8L%_6G6eS5H) 
LET AXLK=6G. AK 
LET SCHOOL=H66.S5H 
WHILF OTSPOSITIIN IS NOT EMPTY AND STZE IS NOT ZERO, 19 
PEMOVE FIRST NA2NER FROM NISPOSITION 
IF STZE(ORIE) IS GREATE? THAN SIZE 
PERFORM SPLIT (ORNER,ST7£) VIELYIING NaWeNONER 
FILE NEW.O°OTR FIRST IN OISPOSITION 
REGAPNLESS 
PFRFOPM CHICK, TRAVELPIPE(O9FN-P PIPE. CHART (SASE.LOC, I> Sm INATION(ORD=R))) 
SUSTPACT SI75CIRDER) FOENM STIVE 
LOOP 
IF CVL=LEVEL14 
CALL FIND. STHIVOL (SCHOOL, STZ2°) 
ELSE 
IF SI7™ IS NO~ ZERO 
CALL FTNO,ASSTSNMENT(SKL LVL +1, 8ASELOC, TRAINING, SI7&) 
REGARDLESS ALWAYS 
OESTROY THIS ARLK 
WHILE SCHOOL. WITUE IS NOT EMPTY AND ENROLLMENT IS 
LESS TYAN SCHON. CAPACITY, NN 
LET AL K=F.5° 4.9 
IF STZFEC3LK)> SCHOOL «CAPACTTY=ENROLL MENT 
CALL SPLIT GIVEN BLK, (ST7F (BLK) ¢ENROLLYENT=SCHOOL»CAPACITY) | 
YTELOING NEW. RLK 
ELSE REMOV™ FIRST NEWePLK FROM SCHCOLeQUIUE 
ALWAYS SURTRACT SIZE (NEWe BLK) FROM SCHOOL. QUTUE.ST7= 
PERFORM CHECK.SCHOOL (NEWe ML Ky SOHIOL) 
LINP 
RE TURN 
END °"OF GRADUATION 


i 
§ 
‘ 
Y 


ae | 


EVENT INDUCTION SAVING THE cVUNT NOTICE 
CREATE Ath AQLK 

LET ST7=E=NFETCS 2, PECRUITS(PEPTION FC TIME.V) ) 
LET LVL=0 

LET PURPOSE=TPATNING 

LET CLASS=9TS 

PERFORM CHICK.STHOOL CABLK,OTS) 

CREATE AN ALY 

LET STZ7E=ATOAM MN, RECPUITS (CPS 2INOD. FIC TIME. Vv)? 
LET LVL=0 

LET PUPOENST=TPATNING 

LET CLASS=3MT 

PERFORM CHECK STHOOL (A3LK, IMT) 

SCHEDULE THIS T'NUCTION IN 1 UNIT 

RETURN 

END "OF INOUSTTION 


EVENT 
RFL 
NES 
69 


*HOMT 


MASSIV™.OTF 
FASE ALLeTYLZOFFICTSS ANY 
TRNY THE ATRFORCE 
HOME 


sSToP 
**FINTSH 


END 


eANF ATRENICE 


ALL. THES AT RAMEN 


'- 
FVENT MOVEMENTS SAVING THT EVUNT NOTICE 
OF FINT SUP, PNT.PL AS A 2=—NIMFNSIONAL INTEGER APRAYS 
DEFINGT GROUP,S, LP AS INT TGE® VARTASLES 
DZFIN= ELIGTSLES gINELIGI3L&° »PROU,0UT AS 2—NIM INTE GTA ARRAYS 
LET PTFPTON=OCPTINZ EC TIMS.V) 
LET P=PTPRTN 
FOR SACH RAST, W 
LET PONY.OJT(*,*) =PENDING, OUT 
LET FLISI3SILES(*,*) SOUTeELISIXLES 
LET INTLIGISBLET(*,*)=OUTe INE LIGISLES 
LET SUR(4,*) SS'IOPLY 
LET 297. PL(* .*#)=ROTATION, POOL 
FAR FASH SKTLL CALLED S 
FOR L=1 70 LENeF(SUP(S,*)) NOccece 
#@ SI PAPATIONS 
LET G2ONUMSTEP, OUT (RAST Sol oP 
ACTUAL e SEPARATIONS (*#,*,*)) 
CALL DERIT(GPONP, Syl, 84S7 ,SEPARATING) 
IF SEPA. FOT'TC(RASE) NE RASE, 
CALL “RZE, AALK (GROUP ySyly SEP POINT CIASE) gSFOAOATING) 
- YIFLIING ARLK 
BEREORY SHECK, PIPELINE (A3ILKy PIPE CHART (3AS=2,SE%~_ OOTNT(RASE)) 
REGAROLESS 
*4OJT UPGRADES 
LET G2NUP=TNEL TGIBLES (Syh) ZOUTe DELAY (L) 
SUSTRPAST G20UP FROM INELIGIBLES (S,L) 
ANN GROUP TH FLIGIPLES(S,L) 
LET GROUT IIT. OUT (PASE ,S,LyP,ELIGIBLAS(S,L)) 
CALL BDOBTT (GRPNUPM,S,L, BASE ,OUTe UPGRADE) 
CALL CREMT™ (G2OUPsSsL +1, BASE ,O0ISTAUPGRADE) 
SUBTPACT G2OUP FROM PROJ. OJTI(S,L) 
{.00P 


TT 
7. 


PPRATATTION, TUT4 TEAINING SS#ONL, LEVY ASSIGNMENTS 
WHTLE OLANNTNM, ASSIGNMENTS ITS NOT EMPTY, 10 
QEMAVE FIRST ARLK FROM PLANNEDSASSIGNYENTS 
LFY NEPAQTIIPT, DATE=TIM=ELV 
BO TN PUR (PURPOSE) 
*PUZ(LEVYING) ¢ 
*PUR(POTATING)® 
*PUR(ASSIGN) ¢ 
(PUR(OFTRAINING) & 
CALL NERIT(ISTZE (ABIL K),SKL CARLK) gL VLCA3LK) 5 83ASF,PURPISE) 
"PUU(TRAINING) ¢ 
PFRFORM CHO Xe TRAVELPISS (APL Kg PIPE eCHART (SAS= DESTINATION) ) 
Lage 


FOR FASH SKILL» 
ALSO FOR LEVIL=1 TO LEN,FCOOT.PL(SKILL,*)) » 10 
TF POT. PLOTKILL,LE VEL) >0 
CALL FINVASSIGNMENT(SKILL LEVEL ,84SZ,ROTATING, 2YT,PL(SKILL, 
LEVTL)) 
ALWAYS 
Ln0° 


Looe 

SCHENULS THIS MWEMENTS IN 1 UNIT 
RE TURN 

END ** OF EVFNT MOVEMENTS 


pam | 


EVENT PFESOUNTL. SAVING SAVING TRE FVENT NOTICE 
OZTFINE SUPP AS KR 2eDIM INTEGER ARRAY 
USE NTT 2 FNP WTYT 
WRITE CALENTVAP, SONTH(PEPTODOF (TIMES V)) AS “MONTH “,4T 3 
FO? TALH BASE, 10 
LIT SUPP (*,*) =SUPPLY 
ALSQ FOR [TACH SKILL,00 
ALSO FO? FACH LEVEL, O09 
TF CEN FCS IPP CSKILL FP <LEVEL 
WRITE 15090505990,9 AS I 4,6 I 3 
FLSE 
WRITE S'IPPC SKILL LEVEL) yFLON.SEP(SKILL yLEVEL) , 
NITeFLOW.OUTCSKILL sLZVEL) pTOeSCHeFLOW(SKTIL yy LEVEL) y 
FLOW. OUT (SKILL »LEVEL) sFLOW,IN(SKILL LEVEL) »DITOFLOWSIN AS 
T GE I 3 
ALWAYS Lone 
WEITF AS “SCHOANL * 
FOP “ACH SCHOOL, O00 
WRITE ENQZILUEM TNT (SCHOOL) » TOTAL eNEWe STUDENTS (SCHOOL) y 
TOTAL SRADUATION(SCHONL) »gTOTALe SOH*e QUFU (SCHOOL) 
PFAK,.SS4, ENE (SCHOOL) AS 5 I 5 
LyaP 
WPITF AS “9T9°7 * 
FOR FACH TRAVTLPIPE, DO 
W2ITE VOLUMT(TRAVELP TPE) gs TRAVEL eVOLUME(TSOAVYFLOTO=“), 
PEAK. VILUME (TRAVEL PETS), TOTALSWATTCQUEUE (TPAYVELPTIOE), 
PEAK, WATT, QUEUE (TAAVELPIPS) ASS T 6 
LonP 
FOR FACH RASF, 
FOR FACH SKTLL, 
FOR FACH LTVEL, NO 
LFT FLOW. SE°=5 
LET OJT.FLOW.OUT=90 
LET TA. SCH. FLOW=0 
LET FLO.OUT=0 
LFT FLO. IN=0 
Looe 
FOR EACH SCHOML, 10 
LET TOTAL. NT4.STUDENTS=9 
LET TOTAL. GPAWATION=0 
LET TOTAL. SPH. QUENE=0 
LET PTAK,SCH, TUEUE=0 
LOOP 
FOR SACH TRAVTLOIPE, 10 
Lit TOAVEL.VOLUME=0 
LET PTAK, VOLINIE=0 
LET TOTAL. W“T*.DUTUE=0 
LE? PEAK.WATT. QUE UE=0 
LnNo0° 
SCHENULS THIS P-SSONNEL.SAVING IN 1 UNIT 
RE TURN 
END 


FVENT PIPE.T XT (P, ALK, PIPFLING) 
DEFINE ILKyNTW. WK AS INTEGEO VARTAQLES 
DEFINE CTPFLINT AS AN INTTGE® VARTASLE 
LET APLK=P,RALK 
LET TR&AYELOTP t= > TPELING 
SURTPATT ST7E ©20M VOLUME 
IF MESTINATION TS NOT TQUAL TO EXIT.3ASE 
PESFOOM CHERK, TRAVELPIPE (ABL Ky PIPES CHART (EXIT. IASE, TESTINATION) ) 
GO TO "CHECK. DIEUE! 
ELS= 
GO TO "S¥ITCPNEINSE) & 
"EXT TCASSIGM) ? 
COLL CRENTT (ST7E,SKLyLVL, DESTINATION ASSIGN) 
DFSTENY THTS ARLK 
GO TN "SHECK, MITUE ? 
"EXIT(TOAINING) & 
"EXIT (PLTOATNING) ! 
PERFORM CHECK .SSHOOL(ARLK,CLASS) 
GO TO "CHECK. NITUE® 
"EXT T (SED AQATING) & 
OFSTROY THIS AILK 
"CHICK. QUEUE? 
WHILE WATTING.ONEUS TS NOT FMPTY ANN VOLUME IS LESS THAN CAPACITY, 90 
LET BLK=F,WATTING. QUEUE 
T& SIZE (3L KY >SAPACIT Y=VOLUM= 
CALL SPLIT GIVEN BLK, (SI7© (BLK) +VOL'IME=CAPACTITY) 
YTELOING NEW. BLK 
ELSF SEMOVE FTRST NEW.ALK FROM WAITING. DUZUF 
ALWAYS SURTRACT SI7E(NEW. ALK) FROM WAIT, QUTUESST 72 
PERFORM CHECK.TPAVELPIP= (N“WeALK,TRAVELPTPL) 
Loop 
‘ RETURN 
END "OF PIPF.EXIT 
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EVENT SAVE.ASSTAN SAVING THE “VENT NOTICT 
NMEFINE SUPP AT A 2NIN INTEGER AQPAY 
NZFINE 7 AS AL INTEGE? VASTARLE 
LET ASMT™, PER=CALENDAR, MONTH (O° 2TODe FC TIME. V) +40 MONTHS) 
LET 7=0 
USE UNIT 4 FO? WTPUT 
WRITE ASMT.PL7? AS “MONTH “I 2 
FOP TACY 3ASF, 10 
LFT SUPP (*,*) =PPO JECTION 
ALSO FOR TACH SKILL, 99 
ALSO FOP 7ACH LEVEL, 19 
IF LON. ~(SUPPCSKILL ys *)) <LEVEL 
WOTT™ 7y7%o7o707 AS T Goh I 3 
69 TT "LOOP * 
ELSE 
WPTT2 SUPP(SKILLyL VIL) pASSIGN. S=P(SKILLyLTYITL) y 
ASSIGN. OUT(SKILL yL-VEL) 
PSSIGNeSCH(SKILL yg LOVELD 
ASSIGN. OUT (SKILL, LEVEL) 
Ket hye FS 
"LOOP" LOOP 
FOR FACH SCHONL, 9 
LET SKILL=SYILL. TAUGHT 
LET LEVIL=LTVTL. ENTER 
WRITE TECHeTPAININGs FOOL (ASMTs PER, SCHOOL) y 
ENTF%. TCHONL* TASLECASMT.PE2%,SCHOIL) AS 215 
LONP 
FOR CACH RASF 
ENP EACH SKTLL, 
FO2 SCACH L-VEL, 00 
LET ASSTGN.OUT=9 
LET ASSTGN.OUT=0 
LET ASSTGN.SEP=0 
LET ASSTGN. SCH=0 
Looe 
SCHENUL™ THIS SAVE.ASSIGN IN 41 UNIT 
RETURN 
€ND 
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ROUTINE FLOW1 GTVEN BLK4P,9 . 
NEFINT BLK, AND & AS INTEGUP VARTARLES 

GO TO “PUR (PUPPISE (ALK)) 

“PUR(SESNRPOATING) & 
ANN STZECSLKY TO FLOWeSEP(8ySKL (BLK) gL VL (3LK)) 
R=ITUOEN 

®PUR(NITe.UPGRAN®) & 
ADD STZEC3LKY TO OUTFLOW. OUT (BySKL (BLK) yLVL (3L*)) 
RETURN 

PPUZ(TRATNINGY® "PURCRETRAINING) ¢ 
ANN ST7ZE(CPLK) TO TO. SCHeFLON (C9, SKL (BLK) LVL (SLK) ) 
AID STZE(RLY) TO ZNTEReSSHOIL «6 TABLE (PySCHIOL. CHART 

(SKL CALK) gt VL C3L 4) )) 

RETURN 

"PUP (POTATING)* "PUR(LEVYING) © "PUR CASSIGN) ° 
AID STZE(BLK) TO FLOW.OUTIN%SKL(SLK) LVL (AL K)) 
RITURN 

FNN 


ROUTIN® FLOW? GTVEN NOTICE AND TIME 
DEFINE NOTICT AS INTEGER VAPTARLE 
DEFINE TIMF AT REAL VARTARL& 
AOD SI7=E(GeRALK( SOTTCE)) TO TOTAL eNEW. STUDENTS (Ge SCH(NOTICF)) 
LET OF AKe ENROLL 4ENT (G0 SCHCNOTIC®) ) SMAXe FCENZOLL “MENT (Ge STHCNOTICS) D+ 
SI7E(G. ALK (NOTICE) ) pPEQK. ENROLLMENT (G6SCH(MNOTIC=))) 
RE TIJON 
END 


ROUTINE FLOW3 STVEN BLK 
DEFINE SLK AS INTEGER VARIANLE 

GO TD) PUR (PUIOPISF (SLK)) & 

(PUR (OST. NPGRAN=) ¢ 
ADD SIZE CSLK) TO OJTeFLOWeIN( DESTINATION (3LK) gSKL (3LK) pL VL CALK) +1) 
RITHRN 

*PUR (ASSIGN) ¢ 
ADD STZE(S8LK) TO FLOWSIN(DESTINATION(C SL) gSKL (SLK) gL VL (SLX) ) 
RETIIRN 

*PUP(RPETOATINING) ® #PUP (TRAINING) # *PURCSEPASATING) ° 
RETURN 

FN 


ROUTTNS FLOWG GTVEN BLK,STH 
OZFTN= BLK AND SCH AS INTEGER VARIAALES 
AND STZZCALK) TI TOTAL) SCA. WUE (SCH) 
LET PAK, SCH, OU TUE (SCH) =MAXe FC OD AKe SCHe QUEUS(SCH), 
SCHOOL e QUTNTeSI7E (CSCHI+ST7E (SLK)) 
RE TION ; 
END 


POUTINE FLONS GTVEN NOTICE ANT TIME 
OCFINE NOTICE AS INTEGER VACTABLE 
DZFING Tite ADS REAL VAPTARL™ 
BON ST77OP.ALKCNOTICE)) TO TRAVELeVOIOLUMECOIPE (CHOTICE) ) 
LOT PEAK. VOLUM™ (PIPE (NOTITE)) =MAX eFC VOLUTE (OTPT(NOTICZII + 
STZZCP.3LK OIOTICE) ) PEAK. VOLUME (OIPC(NOTICE))) 
RF TUON 
END 


ROUTINE] FLOWS STVEN BLK AND PTPILINE 
DEFTNS BLK AND PIPELINE AS INTEGS® VARTARLES 
ADN SI7ECALK) TI TOTAL.WATT.OUEUS (PTPELINE) 
LET OF AK, WATT. WISUE CPITOPLINI) =MAX SFC PEAKS WATT. QUENECOTOTLING) y 
WATT, NU-UF, SIZE (PIPELINE) +SIZE (BLK) ) 
RETUPN 
END 


ROUTINE FLOW7 GIVEN ALK AND STH 

DEFINE ALK ANY SCH AS TNTEGTR VARIASLES 
ADD ST7=(BLK) TI TOTAL. GRADUATTONI(SCH) 
RETURN 
END 


eee nee LO LEE NOLOOIE 


ROUTING CALTNOAX MONTH (P) 
N=FINT PAS AY INTESES VAPTAELE 
R7TUON WITH MINVF (PH1,17) 41 

ENN 


ROUTINE CETLe® (CR) 

DIFINT RyF AS RFAL VASTABLES 
LET FSFOAC.F() 
IF F=0 PETYON YTTH TRUNCF CR) 
ELS= PETURPN W°TY TRUNC.F (2) +1 
END 


ROUTINE CELL.©(7,CYCLE) 
DCFINE PyCYCLT AS INTEGTR VARIABLES 
RETURN WITH MID.F(PH1,CYCLE+1) +1 
ENDO 


ROUTINE CONFIGNPE GIVEN A YIELDING 8 
DEFINE A ANT 2 AS 2=NIM INTSGER ARRAYS 
DEFINE IyITST7~,JSTZE AS INTOGER VARIAQLES 

LET ISI7E=NIM.F(A(*,*)) 

RESERVE B(*,*) \S ISIZE AY * 

FOR I=4 TO IS°*7= pO 
LET JSIZ=E=LON.F (ACI, *)) 

IF JST7£>0 
RESERVE 8(Ty*) AS JSIZE 
ALWAYS 
Looe 
END 
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ROUTTNE DUPLICATE GIVEN A YTFELAING A 
OTFINZT A ANN YAS 2eMIM INT™GE® ABVAYS 
NEFINT Ty Jy TST7E 9 JIST7ZE AS INTOGE® VARIAILTS 

LET IST7£=NIMLF (AC *,*)) : 

RFSTPVF A(*,*) 1S IST7FE BY * 

FOP T=1 TO IST77 AN 
LET JST7==L™N.FCA(T,*)) 

IF JSTZ=>0 
RESFRVE RCT,*) AS JSTZ= 
FOR Jeti 7O JSI7E 
STNPE A(T,J) IN A(T,J? 
ALWAYS 
Looe 
END 


- ee ir. ee ee i a 


POUTINE LEN. © (OW) 
DEFINE 20W AS A 1-0IM INTCGER AQRAY 
IF ROW(*) = 9 


RETUIAN (CO) 
ELS= 
RETURN(DIM. F(20W(*))) 
END 


POUTINE MAK=,A3LK GIVEN NySyly%, USAGE Ya=LNIVG NEW.ALK 

DEFINE NySglby VUSAGE yNEWSPLK AS INTEGER VARIARLES 
CREATE AN AALY a 

LET SI7F=N 

Lit SKL=S 

LET LVL=L 

LET PYURPOSESNSAGE 

LET NFW.SLK =ASLK 


ROUTINE PEPTON= (T) 
DEFINT TFT AS A REAL VARIASLE 
RETURN WITH TIUNC.F CT) +1 
ENN 


ROUTING PLAN.Y=AR (9) 
Be OSFINS P AS AN INTEGER VASTASLE 
ae RETUCY WITH VIVEF (Poig12) 41 
\ END 


ROUTINE ©OR OTANCHECK GIVEN TEST: 
NEFINT CHTEY,ZTEST AS ALPHA VAPTARILES 
IF CAPD TS SOT NEW, START NTW CARD 
ALWAYS 

R=AN CHECK 

WRITE CHECK AS Zy“GOT TO “yA 1057 
FF CHECK = “EST 


eLsz 
WRITZ TEST,CHECK AS /," INFUT F2ROR $ ZXPESTED “yA AN, 
* DEAD “sh 105° 2UN ABORTEDe ce” 
STaP 
ENN 


ROUTINE SPLIT (VWOeILKyAMOUNT) YIELDING NEW, BLK 
DEFIN® NEWeRLK,ILOSALK AND AMOUNT AS INTESER VARTARLES 
CREATE AN ABLK TALLEN NEW. 3LK 

LET SKL(NEW. PLK)=SKL (OLD. ALK) 

LET LVLONEW, ALK) =LVL(OLD. ALK) 

LET SFSTINATION (NEW. BLK)D=IESTTNATION (OL De SLX) 

LET NF OARTUQF VATE (NEW, BLK) EN OAPTUPL DATE (ILD. ALK) 
LET PURPOSE (NEW. SL K) =PURPOSE (OL. 3LXK) 

LET CLASS (NEW. "LK) =CLASS(OLD. MLK) ‘ 

LET STZE(NEW.9L 4%) HSIZ7E (OLD 3L%) AMOUNT 

LET STZE (OLN, ALK) =AMOUNT 

RETURN 

END *" OF SPLTT 


POUTINE TIM™.© (P) 
OZFINT P AS A INTEGER VASTAALE 
RETIRN WITH PALF (P-1) 

END 


—————— 


NT3IIG ROUTING Seee 
RINTINE TA O>.Y5, APP AY STVEM Y 
DIFINT Y AS AY INTEGES VARTARLE 


WETTE * YG,ACPAV™ AS 7,4 10 


LF 


T YGe ARRAY (4, %9*%) HVEA%, SQOUPS CY) 


FQ® FACH SKTLL CALLED Sy FOR EACH LEYZL CALLED Ly 


WETTE VySyh AS 433 I 3 

FO? YG=YS1 TO YG30 99 
WRITE YGeAPRAY(SyL,¥G) AS I 
LIAP 

L79P 


RE THAN 
END 


ee 


PIUTINE TO ©?,USAFePROJ GIV™N Y ANN ARQAY 


DEFTINS Y AS Al INTEGE® VAPTARLE 
DEFINE ARRAY AS A 2-NIM REAL ARRAY 


WOTTE * USAF, PROJ” AS 4,4 10 
FOR EACH SKTLL CALLED S, 10 
WRITE Y_yS AS 492 I 3 
FOR EACH LIVEL CALLED Ly, 09 
WRITE A2PAY(S,L) AS 1(8,2) 
L790° 
LonP 
RETURN 
ENN 


4 
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EVENT STOPPAGE .MINAGE® SAVING THO FVENT NOTIS® 
LET HIRI7AN,S=PFOTODSF(TIM®E. V+He MONTHS) 
LOT PPC VIOUS, P=PERTONFC TIM eV m1 
FOR EACH RASS 90 
LET PONUTSTION (HOPT7ONS 5 8ASE) H=PROJZECTION(PREVIDNNIS, Py 
BASc) 
LET POTATTOIN, POOL (HORIZON s Py RAS V=EAOTATION. COIL CPI2-VIOUSe Py 
BASE) 
LaoP 
IF HNRT7NN.F <¢ NePERTION, 
1 SCHENULE TAIS STORAGE MANAGER IN 1 UNIT 
ALWAYS 
FND 


} | sai 


—— ne 


UNCLASSIFIED 


SECURITY CLASSIFICATION OF THIS PAGE ERAGE (When Dota Entercts) 
siieaoreabeniehaietasainstee pie late ae a eanslsiieinetamteagtemesspneepiniomeseacinnimtpaneeiai 
READ INSTRUCTIONS | 


— —- 


REPORT DOCUMENTATION PAGE COMPLETING FORM 


Ty. REPORT NUNOER igi ) J)  sovt ACCESSION NO] 3. RECIPIENT'S CATALOG NUMACR 
re he | 


av° 220 


4 TITLE (and Subtitle) 
APPENDIX A: A SOURCE LISTING OF THE PROGRAM CODE 
FOR ISEM-P 


TYPE OF REPORT “6 PERICO COVERE ° 
Final Report 


5. 


6. PERFORMING ORG. REPORT NUMBER 


AUTHOR: s) 
Charles R. Eisele 


6. CONTRACT OR GRAN) NUMAERIN) 
F44620-76-C-0125 * 
Charles D. Laidlaw 


3 PERFORMING ORGANIZATION NAME ANDADURESS OSOS~S~S ALE PROGRAM ELEMENT, PROJET TASK 


AREA & WORK UNIT NUMSER 


61102F 
2313/A3 


FCONSAD Research Corporation 
(121 North Highland Avenue 
Pittsburgh PA 15206 _ 
tt. CONTROLLING 
Air Force Office of Scientific Research (NL) 
Bolling AFB DC 20332 


"12. REPORT OATE 


27 April 1977 


13. NUMBER OF PAGES - 


85 she ice es teccccae earsae chins a aR eaaae 


15. SECURITY CLASS. (of this report) 


NA AME ANG AOORESS 


p AGENCY NAME & ACORESUI! different from Controlling Oltice) 
Unclassified 


DECLASSIFICATION DOWNGRADING 
SCHEQULE 


1Se. 


DISTRIBUTION STATEMENT (of this Xaport) | 


Approved for public release; distribucion unlimited. 


17, DISTRIBUTION STATEMENT (of the absiract entered in Block 20, if different from Report) 


18. SUPPLEMENTARY NOTES 


een ene fn 
S Cantinue on reverse side if necessary and identify by block number} 


Integrated simulation Personnel assignment planning 
Modular design Simulated personnel flow 


Force structure planning Mission response evaluation 
Training program requirements 


20. ABSTRACT (Continue on reverse side tf necessary and identify by block number) 

The source listing of the Program Code for ISEM-P is an appendix under 
separate cover to the Final Report dated 27 April 1977 entitled “An Overview 
of the Prototype Integrated Simulation Evaluation Model of the Air Force s 


Manpower and Personnel System," . 


DD .5on's3 1473 EvITION OF 1 Nov 68 15 OBSOLETE 


--_—_ 


